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NIT - Iniziat ize th the device unit 

Transmit 1/0 FDT routine 

Receive 1/0 FDT routine 

Alternate Transmit/Receive 1/0 routine 
T = Set mode 1/0 operation 4 dispatch routine 
T_LINE = Set mode 1/0 operati oo FDT routine for LINE 


S$ 
Start up controller 
—E = Change mode and characteristics 
T- AL receive buffer list 

IVE = Start oy receives 
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- Error log and diagnostics register duap 
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sa Me TERROR - Device error handler 

SHUTD - Shut down device 
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~TITLE XMORIVER = VAX/VMS DMC11/DMR11 Device Driver 
-IDENT ‘Vv04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
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® 
® 
THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER  * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. . 
+ 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
CORPORATION. » 
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: : FACILITY: 
: VAX/VMS DMC11/DMR11 Device driver 
0 ¢ ABSTRACT: 


This module contains the DMC11/DMR11 driver FDT routines, 
interrupt dispatcher, interrupt service and fork routines. 


; AUTHOR: 
R.HEINEN 24-AUG-77 
; ; MODIFICATION HISTORY: 


v03-023 auscees Rod N. Gamache 17-May-1984 
Set the DEVSM_AVL bit to make XM units available. 


v03-022 RNGOO22 Rod N. Gamache 29-F eb- 1984 
Fix problem with allocation of map rogteters which causes 
too many map registers to be allocate 


v03-021 pyeonet Rod N. Gamache 29-0c t-1983 
ix broken register useage caused by use of TIMEDWALT macro. 


v03-020 RNGOO020 Rod N. Gamache 27-Jul-1983 
Changed WAIT10 mecre to use system TIMEDWAIT macro. 
Chan e all NOP wait loops to use TIMEDWAIT macro. 
Don't do BUG_CHECK if input request was processed by 
Interrupt Service Routine. 
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SEP-19 DRIVER. SRCIXMDRIVER.MAR; 1 
00 58 : v03-019 ROW0169 Ralph 0. Weber 3-MAR-1983 
09 23 ; Add SIPLDEF. 
0 61 : V03-018 RNGOO12 Rod Gamache 28-Jan-1983 
4 ¢ : Add code to hang up modems on LINE DOWN requests. | 
$00 64 : v03-017 RNGOO11 Rod Gamache 17-Dec-1982 | 
000 65 ; Speed up the startup time for devices that don't run 
B86 96 : micro-diagnostics. 
| 000 68 : v03-016 RNGOO10 Rod Gamache 04-Nov-1982 
4 9 : Setup timeout routine offset for new fork process 
444 oY 3 added to transmit process routine. 
0000 fe : V03-015 RNGOOO9 Rod Gamache 07-Sep-1982 
0000 io 3 Fix cancel routine to only abort user's 1/0 on $CANCEL 
0000 74 ; request and not to shutdown device or abort other users’ 
0000 75; 1/0. Add another fork block to UCB to allow a fork wn tranmit 
0000 6 3 requests - allows users to transmit any size message up to 
444 AA : 16K. Remove the code to pre-allocate one transmit map register. 
0000 «79: v03-013 RNGOOO8 Rod Gamache 01-Sep-1982 
i464 80 ; Reduce startup time required in previous enhancement. 
0000 3) 3 Fix startup problem when running in LOOPBACK mode - fixes 
4464 Hf : problem found by UETP. 
0000 «= 84; v03-012 RANOOO1 R. Newell 08-Jul-1982 
0000 a Add code to determine whether a DMC has the high-speed or 
0000 e 3 low-speed microcode chip set and what the mode and interface 
0000 a switches are set to on a DMR. 
000089 
9000 30 + PREVIOUS MODIFICATIONS: 
9000 92 : Al Eldridge, Scott Davis, Len Kawell, Rod Gamache 1979-1982 


Ot 


| 


e 4 
= VAX/VMS DMC11/DMR11 Device Driver 16-SEP-1984 26:0 AX/VMS Macro v04-00 P 
; : oe et 8:38:23 LORIVER. SREIKMORIVER.MAR; 1 aie By 


: Br if no carry 


BCC L 
MNEGL #1,COUNTER ; Set to maximum value 


is: 
~ENDA ADDLC 


;eeerere 


-MACRO WAITIO WTIME,?L1 
TIMEDWAIT TIME=WT IME ,- 


3 3 
3 $6 ; System definitions 
38 SACBDEF ; AST control block 
88 9 SCANDEF i Define Cancel reason codes 
100 SCRBDEF ; Controller request block 
0 101 $CXBDEF 3 Define CXB block 
000 1 ¢ SOCDEF ; Device types | 
00 1 SDDBDEF ; Device data block 
000 104 SOPTDEF 3 Driver prologue table 
000 105 SDYNDEF : Dynamic data structure types | 
B88 1 § SFKBDEF ; Fork block definitions 
1 SIDBDEF ; Interrupt data block 
000 108 SIODEF ; 1/0 functions 
000 109 SIPLOEF ; IPL symbolic definitions 
44 110 SIRPDEF ; 1/0 packets 
00 111 SJIBDEF ; Job information block 
i444 11 SNMADEF ; Network management codes | 
000 11 SPCBDEF ; Process control block 
0000 114 SPRDEF 3; Processor registers 
0000 115 SSSDEF ; $ysten status codes 
0000 118 STQEDEF ; Timer Queue Element 
+444 11 SUBADEF ; UNIBUS adapter reptsters 
000 118 SUCBDEF 3 Unit control bloc 
0000 119 VADEF 3; Virtual address fields 
0000 120 SVECDEF : Interrupt vector 
0000 121 MDEF 3 XMDRIVER symbols 
0000_~—=s'1 ; | 
0000 123; 
0000 124 ; Local macros | 
0000 125; 
444 126 -MACRO SETBIT POS,BAS,?L ; Set a single bit | 
000 127 BBSS POS, e 
0000 128 L: 
444 129 -ENDM SETBIT 
000 130 
0000 131 pteteere 
464 1 ¢ 
000 «1 -MACRO CLRBIT POS,BAS,?L ; Clear a single bit 
44 134 BBCC POS,BAS,L 
000 135 L: | 
si 1 $ -ENDM CLRBIT 
00 1 
000 1 3 ptereree 
0 1 
00 140 -MACRO ADDLC COUNT,COUNTER,?L; Add to counter 
bo 191 ADDL COUNT,COUNTER ; Increment 
3 i 
144 
0 102 
i 
iF 
13 
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00000000 
00000004 
00000008 
00000100 


40 
0000390 
000A 
000008 


00000090 
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-ENDM = =WAIT10 


ptrereee 


MACRO COUNTER TYPE,BITMAP=NO,WIDTH=8, 


SSSTYP = NMASC_CTCIR_'TYPE NM N 
-LIF ION <BITMAP><YES>, SSSTYP = SSSTYPT<NMASM_CNT_MAP> 
$$$WID = ; Set reserved mask field 
.LIF IDN <WIDTH><8>, $$$WID = <1Q@NMASV_CNT_WID> 
“LIF IDN <WIDTH><16>, $$$WID = <gaNMASO_CNT_WID> 
.LIF IDN <WIDTH><32>, $$$WID = <3aNMASV-CNT WID> 
LIF EQ S$$$WID, .ERROR : Inval7d bit width value 
“WORD NMASM_ CNT_COU!$$$wID!SSSTYP 
.IF NE BASEOFF1 
-BYTE BASEOFF1,UCB$B_XM_‘UCBOFF1'-UCB$B_XM_DEVCNT 
-1IF NE BASEOFF2, BYTE BASEOFF2,UCBSB_XM_'UCBOFF2"-UCBSB_XM_DEVCNT 
.E 


NDC 
CNT BUFSIZ = CNT_BUFSIZ + 2 + <WIDTH/8> 
- LIF ION <BITMAPS<YES>, CNT_BUFSIZ = CNT_BUFSIZ + 2 
-ENDM COUNTER 


> Local symbol definitions 


$Q10 parameter offsets 


REF WN @O OD NAUES WN $9 OD NAMES WIN O OO NA UE WW O OONOUE UT 


a a a a et a a ta a as ta tt tt tn en 


pe RNG AA Ot tet try tt tet EPR BPS SF By Be Cet Ae FANE ee Hy 
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Py = 0 ; Parameter 1 

Ps = 4 ; Parameter 

P = 8 ; Parameter 

BASETAB_ SIZE = £28 ; Size of base table 

MAX_C_BOFSIZE = 16383 ; Maximum transfer size 

MAX~REV = 7 ; Maximum number outstanding receives 
MAX_XMT = 7 ; Maximum number outstanding transmits 
DMC_DMR = 3 : DMC or DMR test value 

SHUT_ TIME = 199051900 : Shutdown delay time (100 ms) 
UINST_CNF = *021 ge ; Microinstruction to get confi 
UINST_RROM = *0100515 3; Microinstruction to read DMC ROM 
LS_UCODE = *01620 ; Contents of addr 0115 in l.s. u-code 
DROP_DTR = *0122013 : Drop DTR on modem 

EXECOTE_uC = *02 3 Execute in DMC PORT 

; XMDRIVER UCB extensions 


" $DEF INI 
. = UCBSC_LENGTH 
F  UCBSQ_XM_QUEUES 
F  UCBSQTXM“XMT_REQ .BLKQ 1 


DRIVER. SRCIXMDRIVER.MAR; 1 


8,- 
BASE FF 1=0 ,UCBOFF 1 =DEVCNT BASEOFF2=0,UCBOFF 2=DEVCNT 


:; Message and 1/0 request queue heads 
; Transmit 1/0 requests awaiting start 
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9 09 SDEF UCBSQ_XM_RCV_REQ .BLKQ 1 ; Receive 1/0 requests ayaiting message 
A 19 SDEF UCBSQ_XM_PORT BLKQ 1 ; Transmits/receives euatting he por 
A 11 SDEF UCBSQ_XM_XMT_PND .BLKQ 1 ; Transmit I/Os given to device 
B 1 SDEF UCBSQ_XM_RCV_PND .BLKQ 1 ; Receive buffers given to device 
B 15 SDEF UCB$Q-XM_POST -BLKQ 1 ; Transmits/receives awaiting posting 
C 14 $DEF UCBSQ_XM_RCV_BUF .BLKQ 1 ; Free receive buffers 
C 15 SDEF UCB$Q_XM_RCV_MSG .BLKQ 1 ; Receive buffers containing messages 
00000008 4 18 UCBSC_XM_QUEUES = <.=UCBSQ_XM_QUEUES>/8 ; Number of queue heads 
| 0D0 18 SDEF  UCBSL_XM_RCV_MAP .BLKL MAX_RCV ; Receive mapping vector 
OEC 19 SDEF UCBSL_XM_XMT_MAP .BLKL MAX_XMT ; Transmit mapping vector 
1 3 Y SDEF UCBSB_XM_RCV_MAP .BLKB 1 ; Receive mapping in use flags 
1 SDEF UCBSB_XM_XMT_MAP .B 1 ; Transmit mapping in use flags 
19a § SDEF UCBSB_XM_RCV_MAX .BLKB 1 ; Maximum concurrent receives 
| 0108 ; SDEF § UCBSB-XM“XMT“MAX .BLKB 1 ; Maximum concurrent transmits 
010C 5 SDEF UCBSW_XM_QUOTA .BLKW 1 ; Starter's byte quota deducted 
| 00000110 B19e § -—BLKW 1 ; (spare for alignment) 
011 SDEF UCBSL_XM_PID -BLKL 1 ; Starter's process ID 
0114 8 SDEF § UCBSL-XM~AST -BLKL 1 ; Attention AST List 
0118 9 SDEF UCBSL_XM_BASETAB .BLKL 1 ; Base table address 
Bite ? SDEF UCBSL_XM_BASEMAP .BLKL 1 ; Base table map regiser number/count 
0120 § SDEF UCBSL_XM_DRVCNT ; Driver counters 
0120 SDEF UCBSL_RCUBYTCNT .BLKL 1 ; Receive byte count 
0124 4 SDEF UCBSL_XMTBYTCNT .BLKL 1 ; Transmit byte count 
0128 5 SDEF UCBSL_RCVMSGCNT .B 1 ; Receive message count 
012C 6 SDEF UCBSL-XMTMSGCNT .BLKL 1 ; Transmit message count 
00000004 4 4 f UCBSC_XM_DRVCAT = <.-UCBSL_XM_DRVCNT>/4 
0130 3 SDEF UCBS$B_XM_DEVCNT ; Device counters 
Bist 40 S$DEF UCBSB_XM_NBFR .BLKB 1 ; NAKs rcvd = no buffer (DMR11) 
0131 41 SDEF UCBSB_XM_HCER .BLKB 1 ; NAKs rcvd = header BCC error (DMR11) 
01 ¢ X SDEF UCBSB_XM_DCER .BLKB 1 ; NAKs rcvd = data BCC error 
01 435 SDEF UCBSB_XM_NBFS .BLKB 1 3; NAKs sent - no buffer 
4 4 44 SDEF UCBSB_XM_HCES .BLKB 1 3; NAKs sent - header BCC error 
135 45 SDEF UCBSB_XM_DCES .BLKB 1 ; NAKs sent = data BCC error 
01 $ 28 SDEF UCBSB_XM_REPS .BLKB 1 ; REPs sent 
4 47 SDEF UCBSB_XM_REPR  .BLKB 1 ; REPs rcvd 
00000008 ! : $8 UCBSC_XM_DEVCAT = .-UCBSB_XM_DEVCNT 
13 50 SDEF UCBSB_XM_FKB -BLKB FKBSC_LENGTH ; Fork process fork block 
15 51 SDEF UCBSW_XM_MODSIG .BLKW 1 ; Modem signals 
13 26 SDEF UCBSC_XM_LENGTH ; Size of XMDRIVER UCB 
00000148 1? 2 . = UCBSB_XM_FKB+FKBSL_FR3 
148 2$ SDEF UCBSL_XM_LSTPRT .BLKL 1 ; Last port value 
135 ; SDEF UCBSL_XM_LSTCSR .BLKL 1 ; Last CSR value 
13 35 SVIELD UCB,0,<- ; XMDRIVER UCBSW_DEVSTS bits 
15 60 <Xm FORK_XMT, ,M>,= ; Transmit fork Block in use 
1 61 <,2>,° ; reserved 
1 6¢ <iM_INITED, .M>,- : Unit initialized 
1 6 <,75,° 3 reserve 
1 64 <XM_NOTIF,,M>,> ; Mailbox notified 
1 65 <XM~LOSTERR, A>, - ; Unreported fatal error 
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SVIELD MOD,0,- 


<XM_HIGH, ,M>,= 
<XM_DMC 


“DMC, .M>,= 
<XM~INTHOD, .M>,=- 


<XM_V. »M>,- 


<XMORS g- > = 


<, - 
<XM_BSEL1,.M>,- 


<XMRS4 


; DMC11/DMR11 device register definitions 


xn 1.0 Paaes 
<TYPE 3, M>,- 
<RCV 


<ROMI, ,M>,- 
<ROMO, .M>.- 
<LOOPB, ,M>,- 
<,2>,° 
<ACLR, .M>,- 
<RUN, M> os 
.BLKW 
XM_0,0,<- 


<TYPE,2,M>,=- 
<R Vv. ,M>,- 


<,3>.- 
<{E0; .m>,- 
<RDO, .M>.- 


<PROCERR, ,M>,= 
<POWER, ,M>,= 


16-SEP=19 
“SEP=19 


<XM_FORK_PEND, ,M>,- 


Fe 
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; Fork process scheduling in progress 


XMDRIVER UCBSL_DEVDEPEND+3 bits 
HARDWARE MODE BITS (byte) 

Bien speed indicator (DMC/DMR) 

DMC compatible mode (DMR only) 

ingeora modem (DMR only) 

V. (DMR only) 

RS=232C mode (DMR only? 

RS-422 mode (DMR only 

RESERVED 


Indicates that BSEL1 is not locked out 
«if set, indicates Ist 2 bits are ok 


Input CSR (SEL 0) 


Request type 
Receive buffer flag 
reserved 

Request por 


port 
; Port available interrupt enable 
; Port available 
; Step microprocessor 
ROM IN 


ROM OUT 

Internal loopback 
Maintenance bits 
Master clear device 
Run 


Output CSR (SEL 2) 


Output type 

Receive buffer flag 
reserved 

Output interrupt enable 
Output ready 


Data port register (SEL 4) 
Data/error port register (SEL 6) 


Data check 

Timeout 

Data overrun 

MOP message received 
Lost data 

Transfer error 

Line down 

Start received 
Non-existent memory 
Procedure error 
System powerfailure (set by driver) 


Ot 
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EP-1984 DRIVER. SRCIXMDRIVER.MAR; 1 
| ; STIREOUT , «A> 6° ; Transmit timeout (set by driver) 
28 
| § ; Receive buffer definition 
| . 
3 SDEFINI RCV 
00000000 0 . = 0 
00 0 $DEF RCV_L_LINK ~BLKL : Forward and backward queue Links 
444 1 S$DEF RCV_W_BLKSIZE .BLKW Total block size 
OO0A § SDEF RCV_B_BLKTYPE .BLKB 1 : : Block type 
0008 $DEF RCV_B_MAPSLOT eT 1 ; Mapping slot number 
B80 4 S$DEF RCV A -BLK 1 Buf fe r address / character count 
00000048 1 5 LIF CT .-CxBSC _HEADER, -=CXBSC HEADER: (allow for CXB header) 
Bhe § SDEF RCV_T_DATA ; Receive data 
048 8 SDEFEND RCV 
008 9 
008 40 : 
0008 4) ; Basetable block definition 
0008 r 3 
0008 4 SDEFINI BAS 
0000 44 .=0 
0000 45 SDEF BAS_Q_SPARE -BLKQ 1 3 spere oy ayehare 
0008 46 $DEF BAS_W_ ool ee -BLKW 1 ; B 
QO0A 47 $DEF BAS_B_TYPE »BLK 1 : Block ae 
0008 48 SDEF BAS_B_ SPARE -BLK 1 ; Spare byte 
000C 49 SDEF AS_T_DATA ; Start of real basetable 
4 29 SDEF BAS_C_HEADER : Size of base table header 
000C 33) SDEFEND BAS 


| 
00000000 
| 
| 
| 
| 
| 
| 
| 
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Standard Driver Tables -SEP-1984 DRIVER SRE SXMDRIVER.MAR: 1 
4 4 -SBTTL Standard Driver Tables 
09 ; Driver Prologue Table 
00 8 DPTAB - : 
00 5 END=XM_END,=- 3; End of driver 
00 60 ADAPTER=UBA, - : UNIBUS device 
00 61 Ucesize=ucese XM _LENGTH, =; UCB size 
6¢ NAME=XMORIVE 3; Driver name 
00 64 DPT_STORE INIT ; Jats tol izetten data 
3 65 DPT- STORE uCB,UCBSB fp ipl 8.8 ; Fork IPL 
C 06 DPT_STORE UCB, ‘UCSB ~DIPL,B : Device FPL 
04 é DPT-STORE UCB. UCBSL EDEVCHAR |< Device characteristics 
04 6 DEV 4 aN NET DEVSH AV IDEs IDV! DEVE 
004 6 DPT_STORE UCB, UCB$B_DEVCLA ASS B,D SCOR 3 Device class 
0048 370 DPT“STORE U yee UCBSB-DEVTYPE gests BMC11 : Assume a DMC11 
O04F 4 DPT-STORE UCB,UCBSW_DEVBUFSiZ.W, 356" ; "boleutt buffer size 
0054 7 DPT_STORE REINIT 3; Initialization data also for reload 
0054 74 DPT_STORE DDB, DDBSL_DDT,D,XMSDDT; Driver dispatch table 
0059 75 DPT_STORE CRB, CRBSL_INTD+ D,PORT_INTR ; Port interrupt service routine 
005 7 DPT“STORE CRB.CRBSL_INTD+VECS$L UNITINIT,D,UNIT_INIT ; Unit init routine 
006 7 DPT-STORE CRB,CRBSL_INTD2+4,D,CONTROL_INTR ; COntrol interrupt service 
0068 78 DPT STORE END 
0008 79 
0008 80 ; - 
0008 81 ; Driver Dispatch Table 
008 8 3 
00 8 DDTAB DEVNAM=XM,- ; Device name 
000 84 START=STARTIO,= : Start 1/0 routine 
85 FUNC TB=FUNCTABLE,- 3; Function decision table 
000 86 CANCEL=CANCEL,=- ; Cancel 1/0 routine 
87 peste | 4h ; Register dump rout tine 
88 DIAGBF =<32+ ; Diagnostic “buffer size 
3 DIAGBE=<32036>_— ; Alternate transmit/receive routine 
4 3; Function Decision Table 
00 38 FUNCTABLE : 
00 94 F ; Legal functions 
00 95 WRI TEVBLK WRITELBLK,WRITEPBLK.-; Transmit functions 
00 3% READVB Lk READLBLK, READPBLK, = Receive functions 
+3 9 SE TROD Set mode functions 
9 _SENSEMOOE. SENSE CHARD Read and/or clear counters 
FUNCT Buffered 1/0 functions 


Rice ae »READVBLK = 


$s 
FUNCTAB tas 


Transmit function dispatcher 
WRITECBLK, WRITEPBLK,WRITEVBLK> 


BRENLSSS 


54 FUNCTAB RCVEDT Receive function dispatcher 
54 <READLELK READPBLK ,READVBLK> 
FUNCTAB SE TROD fot, - Set mode function dispatcher 


SETCHAR> 
FUNCTAB <SETRODE sf 


Sense mode function dispatcher 
<SENSEMODE , oC ENSE CHAR 


Oooocoe Ss 

RAKKANMAAHOSSSOS 

00.00 Gd Go Cd C8. Gd Gd Co G0 Gd Go G0 CD 

Foy ot ot af ot ot ot ad at at eee lll ites) 


owoew 


— 


= VAX/VMS DMC11/DMR11 Device ietese ' yt et o8¢ op: $6: 03 yenives Se v04-00 Page (3) 


Standard Driver Tables 


a 
— 
— 


“SEP=19 DRIVER.S 3XMD DRIVER.MAR; 1 


Counter ID and format table 


Oooo 
Oooo 


00D SIN NNN NN 
CVO 4 Se Se Ge Se 


T_BUFSIZ = 0 
TTAB: 


OOOCOCOQOOOOCOoO°ooO 

pole jleleleololelolojleoleololo! 
BPP EEE EPP EEE EE 
SOOONOA WUE WN OOONOUE wry 
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Note: the order of this table is related to the UCB counters. 


Counters maintained by driver 
Bytes received 

Bytes sent 

Data blocks received 

Data blocks sent 

Counters maintained by device 


COUNTER BSN,NO, 
COUNTER DBR.NO, 


COUNTER BRC,NO, : 
COUNTER DBS,NO, 


COUNTER DEO, YES.8, 4,HCER.5.DCER Data errors out 
COUNTER DEI, YES,8, 7,HCES,8,DCES Data errors inbound 
COUNTER LBE,YES,8, 9a Local buffer errors 
COUNTER RBE,YES,.8, 3.NBFR Remote buffer errors 
COUNTER oNO, 8, 9,REPS Local reply timeouts 
oo .10,REPR Remote reply timeouts 


ESOP Ne SA oe Oe ree — 
dD 2 
XMDRIVER = VAX/VMS DMC11/DMR11 Device Driver ba dae 4 90:36:08 oye Macro V04-00 Page 10 xt 
v04- UNIT_LINIT = Initialize the device unit -SEP-1984 :20:4 DRIVER. SRCIXMDRIVER.MAR; 1 (4) v( 
ane : ¢ m -SBTTL UNIT_INIT = Initialize the device unit 
ov 2 : ; UNIT_INIT = Initialize the device unit 
at : § 3; FUNCTIONAL DESCRIPTION: 
OAS 438 ; This routine is called when the driver is loaded and during power failure 
OAS 439 ; recovery, It sets the unit status to ONLINE. Also, if called during 
Bone rr 3 powerfail recovery, it shuts down the device. 
OOAS rr | ; INPUTS: 
8 AS 465; 
AS 444; R3 = CSR address 
OAS 445 ; R4 = CSR address 
OAS as r RS = UCB address 
QOAS 447; 
OOA4 448 ; OUTPUTS: 
O0OAS 449; 
O0AS 450 ; RO,R1,R2,R3,R4,R5 preserved 
00A4 3 §= 451 se 
OOA4 re UNIT_INIT: : Initialize the unit 
64 A5 10 AB QOOAS 45 BISW #UCBSM ety UCBSW_STS(R5) ; Set software status ONLINE 
0143 C5 0B AS 90 OOAB 454 MOVB UCBSB_FIPL(RSS,UCBSB_XM_FKB+- : Set FORK BLOCK FORK IPL 
OOAE 455 FKBSB-FIPL(RS) : 
-63 4000 8F +4 OOA $28 MOVW #XM_1 M_MCLR, (R3) ; Master clear the controller 
Ebe 0 008 $e BSBW DISABLE“ MODEM ; Disable the modem 
1464 a5 0 E1 O00B6 458 BBC #UCBSV_POWER,UCBSW_STS(R5S).10$ ; Br if not powerfail recovery 
0B €1 00BB 459 BBC #xM$v_STS_ACTIVE,- : Br if not previously active 
OF 44 AS 00BD 460 UCBSL DEVDEBEND (RS) , 108 ; 
1F BB O00C 461 PUSHR #*M<RO,R1,R2,R3,R4> i Save all registers 
53 01 «1A «78 00C2 «46 ASHL = @XM_E_V_POWER+16,41,R3 ; Indicate powerfail 
54 01 #10 78 OOC6 46 ASHL #XM_O_V_TYPE+16,41,R4 ; Indicate error 
OABE 30 EDF 3 Schedule fork process 
1F Ba ; Restore registers 
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D 469 : ~SBTTL XMTFDOT = Transmit 1/0 FDT routine 


D 470 ; 
4 $f) 3; XMTFDT = Transmit 1/0 FDOT routine 
3 crs 3; Functional description: 
OD 475 ; This routine is called by the SYS$QIO service to dispatch a WRITE 1/0 
OD 476 3 request. 
OD 477 ; 
+4 $28 ; The Q10 parameters for WRITES are: 
o09 480 ; Pil = address of the buffer 
OD 481 ; Ps = size of the buffer 
sit : § 3 P3=P6 = (unused) 
00D0 484 ; The buffer is validated for access and locked into the caller's working 
0000 485 ; set, a transmit UNIBUS map register set is allocated, the buffer 
0000 486 ; is mapped, the device input port is requested, the buffer address and size 
0000 487 ; are passed to the device, and finally the 1/0 request is queued to await 
ise rt +} 3; the completion of the transmit by the device. 
00D0 490 ; If no transmit slot or mapping registers are available, put the I/0 request 
0000 491 ; into a wait queue. When a transmit in progress completes, it will restart 
00D0 492 ; the waiting request. Note - this design depends on having at least one set 
it res 3; of map registers pre-allocated. 
4454 44 3; For requests specifing IOSM_ENABLMBX the attention mailbox is enabled. 
00D0 497 ; Inputs: 
00D0 498; 
00D0 499; RO-R2 = scratch registers 
0D0 300 : R3 = 1/0 packet address 
0D0 01; R4 = PCB address 
00D0 8 ; RS = UCB address 
00D0 03 ; RE = CCB address 
00D0 04; R7 = bit number of the 1/0 function code 
0000 05; R8 = address of the FDOT table entry for this routine 
00D0 86 3 R9-R11 = scratch registers 
sit ti : AP = address of first Q10 parameter 
00D $8 3; Outputs: 
00D0 10 ; é 
0000 1 3 RO = status of transmit request initiation 
000 18 : R3.R5 are preserved. 
D 15 XMTFDT: ; Transmit FDT routine 
_ . C 00D 16 MOVZWL S*#SS$_BADPARAM,RO ; Assume bad buffer parameters 
51 AC § OD 1 MOVZWL P2(AP),R1 3; Get buffer size 
D 18 BEQL Spe th ; Br if zero - abort 1/0 
SFFF SF 51 8} p95 CMPW =saR}'1, #MAX_C_BUFSIZE ; Is buffer too big? 
A 00D 0 BGTRU ABORTIO : Br if yes - abort 1/0 
50 6C 00 E 1 MOVL P1(AP),RO ; Get user buffer virtual address 
00000000°GF 16 OO0E § JSB G*EXESWRITELOCK ; Check buffer access and lock down 
e9 ; (no return means no access) 
€9 4 SETIPL UCBSB_FIPL(RS) 3; Synch access to UC 
50 0084 BF 3c ED 5 MOVZWL #SS$_BEVOFFLINE,RO ; Assume device is not active 
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08 E1 ore § BBC #XMSV_STS_ACTIVE,= Br if not active = abort 1/0 
11 44 A FG UCBSL-DEVBEPEND (RS), agort10 
0 E1 a4 8 BBC TRPSUTFUNE CRED 5S ; Br if mailbox not to be enabled 
04 20 A3 F9 .] P$W_FUNC(RS) ,5$ 
44 AS 10 A OFC 0 BISW oxnen, CHR_MBX,UCBSL_ pevobENocRs) Enable mailbox 
at 1 1 5$ BSBB T_START 3 Start transmit operation 
00000000'GF 1 4 ¢ JMP OT ERESOTORETURN 3; Exit Q10 service to await completion 
10 534 ABORTIO: ; Abort the 1/0 request 
00000000 * GF 17 10 5 JMP G*EXESABORTIO 3; and exit QI10 service 
ioe 839 ; 
O10E B ; Start transmit operation. 
O10E 540 KT _START: ;_Start transmit operation 
0094 D5 63 O€ 319 ae INSQUE (R3) ,UCBSO_XM_XMT_REQ*4<RS) ; Insert at end of wait queue 
011 228 XMT_START ALT: : Alternate entry to start xmits 
00 €0 011 544 BBS #UCBSV_XM_FORK_XMT.=- :; Br if XMT fork block in use 
1A 68 AS 0115 «545 UCBSW Devt S (Ra) 16$ 
53 0090 05 OF 0118 546 REMQUE ret et XMT_REQ (R5) RB": ; Remove first entry from queue 
13. «1D giip th BVS 10$ : Br if none 
O11F 549 : Find a free mapping register slot. If none currently available, put 
Baie 229 3 the 170 request in the wait queue. 
54 0108 CS 9A OIF 226 : MOVZBL UCBS$B_XM_XMT_MAX(RS),R4 ; Get max concurrent transmits 
54 0109 C5 54 be Fe b1S8 237 rice #0,R 47 UCB$B_ RM_ XMT MAP CRS) RG doaoggh. free transmit slot 
r ne free 
0090 cS «663—ti«#OOE’ bi¢8 555 INSQUE (R3),UCBSQ_XM_XMT -REQ(RSS ; Re-insert request in wait queue 
05 01 556 10S: RSB ; hecurs to caller 
$133 886 
oi $66 > Allocate UNIBUS map registers 
01 61 20$: ASSUME IRPSW_BOFF+ EQ IRPSW -BCNT 
01 266 ASSUME UCBSW_BOFF+ UCosy BCNT 
7C AS) 6330 AS) si#Osé*—* 56 MOVL IRP$W =BoFF (hs) eutose OFF(RS) ; Set buffer offset and count 
78 a5) «62C AS) «OO «0138 «= 564 MOVL  IRPS$L~ (RS), cease OEVAPTE (RSS ; Set buffer PTE address 
01 a& 0130 565 BISW #ucB ax PrORR XMT,= : Assume we will have to wait 
68 AS 13F 206 BSw_ BEVSTS CRS) : .-for fork block 
QOOOOI4F'EF 9F 0141 6 PUSHAB $ : Push address of fork process 
00000000'°GF 17 Bier os JMP G* IOCSREQMAPREG ; Request map registers 
14D % : The Sot touting code may be executed as a fork process, therefore 
12 4 3 we must provide for a timeout service routine address. 
0BB1" 014D : -WORD TIMEOQUT-. : Offset to timeout routine 
01 AA O14F 74 308: BICW #UCBSM_XM_FORK_XMT,- : Fork block is no longer in use 
68 AS 151 75 UCBSU_BEVSTS(RS) : 
EO 133 7 BBS #XM$V_STS ACTIVE ; Br if still active 
OC 44 A 15 7 UCBSL ~DEVBEPEND (AS), 408 ; 
13 7 RELMPR ; Else, release the map registers 
50 sc Ht 1 ‘ 7 MOVZWL #SS$_ABORT,RO 3; Return request in error 
0B0C 1 16} 9 BRW 10_DONE ; Complete the 1/0 request 
57 DD 0164 2 408: PUSHL R7 ; Save R7 
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57 24 A5 00 0166 3 MOVL UCBSL_C cmee R5),R7 ; Get CRB address 
16A 4 ASSUME VECSW-M PREG+e EQ VECSB_NUMREG 
16A 5 ASSUME VECSB"NUMREGS EQ VEC$B_DATAPATH 
34 A? DO OQ16A § MOVL CRBSL_INTD+VECSW_MAPREGTR7),- ; Save mapping info 
OOEC C544 190 UCBSL_XM_XMT_MAPTRS) (R4J 
fa ; 5 ; Map the buffer | 
171 91 SETBIT R4,UCBSB_XM_XMT Post weed ; Set mapping slot in use flag 
3c As 54S 90 s«0177 3 MOVB R4, IRPSL_-MEDIA+ 3; Save mapping slot number used 
0178 9 ASSUME IRP$W_BOFF+2 Hy {RBs W_BCNT 
38 A3 0 a3 nh) biz 94 OVL IRPS$W_BOFF(R3) ,IRP$L_MEDIA(R3) ; Move byte offset and size 
4A? FO 018 95 INSV Sie INTD+VE CSW MAPREG(R7) = ; Insert BA9-BAl 
38 AS «(07~—Ss«O9 ae 36 bes SL_MEDIA(R3) 
34 A? st 07 +EF 0187 9 EXTZV faaeac Res pe 35 9) MAPREG(R75 ,RO ; Get BA16-BA17 
02 30 FO O18 398 INSV ,#30,#2, 1RPS ACR3) : Insert BA16-BA17 | 
60000600" GF 16 B33 4 4 JSB RO: #86 43 TREBLE ; Load map registers 
8138 et ; Request and load the port with the buffer address and size, and return. 
57 B8EDO 0199 $08 POPL R7 3; Restore R7 
019C 604 DSBINT UCBS$B_DIPL(RS) ; Synch access to device 
O7E1 30 O1A3 605 BSBW = LOAD_PORT ; Load port 
Q1A6 606 ; Restore IPL . ; 
05 O1A9 607 ; Return to caller to await completion 
O1AA = 608 


sts 
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as -SBTTL RCVFDT = Receive 1/0 FDT routine 

RCVFDT = Receive 1/0 FOT routine 

Functional description: 


This routine is called by the SYS$QI0 service to dispatch a READ I/0 
request. 


The Q10 parameters for READs are: 
Pl = address of the buffer 


P2 = size of the buffer 
P3-P6 = (unused 


; The specified buffer is checked for accessibility. The buffer address and 


count are saved in the packet. Then IPL is set to device fork IPL and if 
a@ message is available the operation is completed. Otherwise the packet 
is queued onto the waiting receive list. The mailbox notified bit is cleared. 


; For requests specifing IOSM_NOW, the 1/0 is completed with status of 
; SSS_ENDOFILE if no message 7s available when the test is made. 


; For requests specifing IOSM_DSABLMBX the attention mailbox is disabled. 


Inputs: 

R3 = I/0 packet address 

R4 = PCB address 

RS = UCB address 

R6 = CCB address 

R7 = Function code 

AP = Address of first 1/0 request parameter 
Outputs: 

RO = Status of the receive request 

R3-R7 preserved. 

CVFDT: Receive function routine 
MOVZWL S“#SS$_BADPARAM,RO Assume illegal size 
MOVZWL _P2(AP),R1 Get size 
BEQL 1 ; Br if none specified 
MOVL P1(AP) RO Get buffer address 
MOVL RO, IRP$L MEDIACR3) : Save address 
CLRW I RPS$W_BOFF(R3) 


JSB G*EXESREADCHK ; Check buffer accessibil 


; (no return on no access) 


SETIPL UCBSB_FIPL(RS) ; Synchronize access to the UCB 
MOVZWL #SS$_BEVOFFLINE,RO Assume device not active 
BBC #xm$0_STS_ ACTIVE : Br if not active - abort 1/0 


: No quota to return guring completion 
: y 


UCBSL~DEVDEPEND (RS) 108 : 


66 BBC vaveveponty Xx, : Br if not disabling mailbox 

64 IRP$W"FUNC(R3) , 5S : 

65 BICW  #XMSM~CHR_MBX,UCBSL_DEVDEPEND(RS) ; Else, disable mailbox 
666 5$ BSBB RCV_START ; Start receive operation 


~ 
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00000000'°GF 17 10 667 JMP G*EXESQIORETURN ; Return to await completion 
FF23 = 311 1 ees 108: BRW ABORTIO ; Abort the I/0 request 
IE 671 ; Start receive operation. 
1E 58 RCV_START: 5 Stork receive operation 
68 AS 0800 8F AA  # ere BICW #UCBSM_XM_NOTIF ,UCBSW_DEVSTS(R5) ; Clear notified status 
‘ | 
ise of8 : Check for message available and complete receive if it is 
52 00C8 D OF OIE ors ; REMQUE OYESSA_KA_ACV_ASGCRS) .R2 3 Degyeus a received message 
0 1D O1F 7 BVS 15$ ; Br if none 
OA4 31 air ett BRwW FINISH _RCV_1O ; Complete the 1/0 and exit 
BiFe oes $ Queue the requst for future message arrival unless IOSM_NOW specified. | 
06 20 a3 06 E0 01F5 684 15s: BBS #losy NOW, IRP$W_FUNC(R3),20$ =; Br if read NOW | 
009¢ D5 6 E O1FA 685 INSQUE (R3),GUCBSQ_XM_RCV_REQ+4(R5) § : Queue the 1/0 packet 
0 tea on6 RSB : | 
50 0870 8F 3 itd ree 20$: MOVZWL #SS$_ENDOFFILE,RO ; Set no message status 
0A68 1 0205 689 BRW 10_DONE ; Complete the I/0 and exit 
0208 690 
0208 691 
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3 , -SBTTL ALTFDT = Alternate Transmit/Receive 1/0 routine 
ALTFDT = Alternate Transmit/Receive dispatch routine 


vo4=000" ALt#D 


Functional description: 

This routine is called by the other drivers to pass an ‘‘internal"’ 1/0 
request to the driver. ‘‘Internal’’ IRP's are not built via $Q10. 

The action here is to setup the IRP fields as if the packet had been 
processed by the FDT routines. 


In this driver, the alternate entry point is called by the DECnet 
Transport layer driver. 


Inputs: 


R3 = 1/0 packet address 
R5 = UCB address 


ALL pertinent fields of the IRP are assumed to be valid. 
IPL = FIPL 
Outputs: 
RO = Success 
R3 and RS preserved. 


ALTFDT: ; Alternate FDOT routine 
MOVZWL #SS$_DEVOFFLINE Assume device not active 
BBS #xM$0_STS ACTIVE. Br if active 


50 0084 8F 3¢ 


03 44 AS UCBSL~DEVBEP R5),5$ 
OASB O31 BRW 10_DORE Post the 1/0 request in error 
01 + €0 5$: BBS #IRPSV_FUNC,- ; Br if receive function 
05 2A A3 IRP$W_STS(RS), 10S ; 
FEF1 30 BSBW XMT_START : Initiate the transmit 
oe a BRB ; 
52. 2C A3 00 108: MOVL JROSL_SVAPTE (RS) .R2 ; Get address of input buffer 
06 1 BEQL 5$ ; Br if none 
06A 30 BSBW ADDRCVLIST ; Add it to the receive List 
2C A D4 CLRL IRPS$L_SVAPTE(R3) ; Buffer now use 
B 10 15$: BSBB RCV_START ; Initiate the receive 
50 01 HS 208: + ama S“#SS$_NORMAL ,RO ; Always return success 
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-SBTTL SETMODEFDT = Set mode I/0 operation FDOT dispatch routine 


++ 
SETMODEFDT = Set mode FDT processing 
Functional description: 


This routine is called by the SYS$QI0 service to dispatch a SETMODE/SETCHAR 
; 1/0 request. 


The Q10 parameters for SETMODE or SETCHAR are: 


Pi = address of 8 byte characteristics buffer 
P2 = (unused) 

PS = number of receive buffers to pre-allocate (IOSM_STARTUP only) 
P4-P6 = (unused) 


No modifier - 


This function is done in the STARTIO routine. Control is passed to 
EXESSETMODE to validate the new mode buffer and queue the packet. 


1OSM_CTRL = 


Perform this function on the LINE rather than the circuit. The only 
extra action that is done, is that on a STARTUP request the modem 
is enabled via a master clear to the DMC. This will re-enable the 
DTR signal to the modem. On a SHUTDOWN request, the DIR signal is 
inhibited. The STARTUP or SHUTDOWN bit is then cleared and the 1/0 
request is processed as a regular request for the CIRCUIT. 


1OSM_STARTUP = 


This function starts the unit and sets the mode. 

The action here is to pick up the user buffered i/o quota 

and allocate the base table. The base table address is saved in 
IRPSL_SVAPTE. The quota is taken from the user is_in IRPS$W_BOFF. 

This Value will be the 10S8+2 value at 1/0 done. This function i 
complete when the base table has been given to the unit. The mailbox 
is enabled and a receive is started. This function is done partially 
here and the remainder is done in STARTIO. 


1OSM_SHUTDOWN - 


This function shuts down the unit and o Stonat ty resets the mode. 

A cancel 1/0 is preformed, all outstanding 1/0 is completed, the base 
table and message blocks are all returned and the unit is left in an 
idle state. This function cannot be done here and the FDT processing is 
that of all setmode operations. 


1OSM_ATTNAST < 


This function sets up a AST to be delivered on one of the following 
conditions: 


Fatal error that caused shutdown. 
Message available to be received. 


<= 
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1 13 | 
: : Inputs: 
1 4: R3 = 1/0 packet address 
1 5 3 R4 = PCB addre 
1 § 3 R5 = UCB address 
1 3 R6 = CCB address 
1 08 ; R? = Function code 
! : AP = Address of first 1/0 request parameter 
: i} ; Outputs: 
18 ; RO = Status of setmode request 
6 i : R3-R5 preserved. 
1 817 SETMODEFDT: : Set mode FDT processin 
2 AS 4 $53] aH CLRL _- IRP$L_SVAPTE(R3) : Set no buffer” ’ | 
57 0 AS B80 0234 1 MOVW IRPSW_FUNC(R3) ,R7 ; Get entire function code 
0657 09 ~«€1 0 : & - BBC #LOSVICTRL,R7,5$ : Br if not a LINE request | 
8 Hi gi ; LINE request | 
O0E2 30 023¢ 4’ BSBW SETMODEFDT_LINE ; Process a LINE request 
3A 50 =«€8 8 z 825 BLBS RO,10$ ; Br if request is complete | 
40 57 08 €1 8 ‘3 : ; 5$: BBC #10$V_ATTNAST,R7,20$ :; Br if not AST request 
46 8 ; : Attention AST request 
57 0114 CS 9E 0246 831° MOVAB UCBSL_XM_AST(RS) ,.R7 : Set address of AST block Listhead 
00000000°Gr «16 «(0548 OB 2 ISB G*COMSSETATTNAST ‘towne aia | 
0251 8 DSBINT Ocoee. FIPL(RS) 3; Synch access to ucB 
54 D4 0258 H 4 CLRL R : Set Mailbox msg 
Oc =«6«ES 8 5A 5 BBCC #UCBSV_XM LOS TERR = ; Br unless unreported fatal errors 
06 68 AS 5c B36 UCB$W_DEVSTS(RS) ,7$ ; 
54 00° BF 9 $f 8 , MOVZBL anSG8 XM_SHUTDN,R4 ; Set message code 
05 E1 $3 9 7$ BBC #UCBSV_X MINI TED.< : Br if device not initialized | 
12 68 A 67 40 UCBSW “BEVSIS(R 10$ : 
51 00C¢8 cS 9E 026A 841 MOVAB matte M_RCV_M mgGtRe) . R1 ; Get address received message queue 
61 7: of ts CMPL R1, (RT) ; Any messages in queue? 
9 13 2 4 BEQL 10$ ; Br if no = nothing to report yet 
5 3 74 44 8$: PUSHL . ; Save 1/0 packet a gcdress | 
0A41 £8 45 BSBW ere USER 3; Deliver the a immediately 
53 8ED 7 rf POPL ; Restore regist | 
51 64 a5 OD 7 47 10$: MOVL Ucpse DEVDEPEND(RS).R1 ; Get device shoractertetios | 
00000000'GF 1 rh: JMP EXESFINISHIO ; Complete the 1/0 
29 ; Set mode, startup, or shutdown request. Get the characteristics buffer. | 
48 as 7¢ 6 3 20$:  CLRQ  IRPSL_MEDIACR3) ; Reset mode data buffer 
5 0D PUSHL ; Save 1/0 packet address 
52 C 4 MOVL 4 aa oR2 ; Get address of new cheraxtertetice 
1 5 BEQL : Or if none aseecntt ed 
50 oc 3C § MOVZWL srFsss CEyI0.RO ; 
9 IFNORD #8, (R25, s 


| 
| 
ay yk access "to buffer 
| 
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BA ; 7D 0299 a MOV sre) gperss eniaiass ; Save peu, checastertetics in packet 
: A 9 9D 5 MOVB VAdRPS MEDIA(R3) 3; Mark it ‘valid’ 
5 ¢ E Al 60 3 BBS 40 V Star TUP,R7,50$ : Br if startup function 
8ED AS 61 POPL 3; Restore packet address 
6B 11 AB $6 BEB 50s 3; Queue the packet 
6F 11 ry de 45$: BRB 100$ 3 
Ae 22 : Startup request - check caller's quota and allocate the basetable. 
51 08 as 9A A 88 bos: MOVZBL P3(AP),R1 3; Get number of receives to preal locate 
5 D5 =) oe TSTL R : Any cherectertetics specified? 
04 12 8 § NEQ 55$ :; Br if yes 
38 40 AS 9E B 0 OVA USERS -REVCLASSIRG) Re :; Else, set addr to current ones 
02 A2 ¢t B8 71 55$: MOVZWL 2(R2),R : Get receive buffer size 
50 14 3¢ O2BC rg MOVZWL $*#SS$_BADPARAM,RO : Assume bad parameters 
51 25 C4 BF 7 MULL Re R1 ; Compute total needed for buffers 
5 13 C2 74 BEQL 106$ : Br if somehow in error 
51 0100 8F Ad C4 75 ADDW SOASETAR_SIZE AI ; Add size of base table 
i a C9 6 MOVZWL R1,R 3 Copy quota 
57 i} D1 . 87 CMPL R1,R7 3: Overflow? 
4A 12 OCF 878 BNEQ 1006S : Br if in error 
Sonncoge" "gf 18 8 4 £44 353 SEE SEUF GUOPRC : rif er Soi cer” $s quota 
010¢ 8F a aspA 881 MOVZWL #BASETAB B SLEE SOAS. C “HEADER R1 Set “etee of basetable + header 
00000000 ' GF 16 DF Ht JSB Gr EXESALLOC 3 Allocate the table 
3 29 E9 O2E5 3 BLBC ag. 1008 3; Return error 
: 8EDO E8 84 POPL R ; Restore 1/0 packet eddress 
30 A3 7 gO EB 885 MOVW R7, IRP$W_BOFF (R3) : Save quota in packet 
: 7 C EF Hy MOVZWL R7,R7 ; Convert to longword 
50 008064 dO 0 Fe OVL PCBS$L_JIB(R4), RO : Get job info block address 
0 ad af C F 888 SUBL R7, JIBSL_BYTCNT (RO) ; Adjust byte count quote 
4 AO 5 C FB 889 SUBL R7, JIBSL_BYTLM(RO) : --and byte Limit qu 
2c AS «652 ~—=C sé FF 890 MOVL R2, IRP$L_SVAPTE(R3) Save base table ne. address 
08 A2 51 00 03 891 MOVL RI ABA ¥ Size (Re) ; Save size of base table 
8 07 B36 PUSHR #*M<R37RZ,R5> ; Save registers 
00 0C A2 00 2C 0309 89 MOVCS #0,BAS a Zero the base table 
OC A2 OOF4 BF 030 94 #BASETAB SIZE-BAS_T BATASBAS. ° -DATA(R2) ; 
8 BA 1 95 POPR #*M<R3,RE,R5> ; Restore registers 
00000000°GF 17 313 96 90$: JMP G*EXESGIODRVPKT : Queue the I/0 packet 
i 38 3; Setmode/start error 
53 8EDO 8 18 00 100$:  PoPL R3 3; Restore 1/0 packet address 
1 Bais 86> BRW ABORTIO ; Abort the 1/0 request 
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eMet mode 1/0 operation 'S-SEP=1986 60:20:43 LORIVER.SREIKMDRIVER.MaR:1 2% 

i -SBTTL SETMODEFDT_LINE = Set mode 1/0 operation FDOT roucine for LINE 
SETMODEFDT_LINE = Set mode FDT processing for DMC LINE 

; Functional description: 


; This routine is called when normal SETMODE FDT processing has detected that 
the 1/0 request is on the Line. 


; Q10 parameters are the same as for regular SETMODE. 
; Modifiers: 
IOSM_STARTUP - 


This function forces the DMC/DMR to be master cleared to re-enable 
the DTR modem signal. 


1OSM_SHUTDOWN = 


This function shuts down the unit's modem, by calling a routine to 
disable the DTR signal to the modem. 


; Inputs: 
R3 = 1/0 packet address 
R4 = PCB address 


» 
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Address of first 1/0 request parameter 

IPL = IPLS$_ASTDEL 

; Outputs: 

RO = LBC, if we can continue, else all done with request 
R1 is destroyed, all other registers are preserved 


ETMODEFDT LINE: ; Set mode FDT processing for DMC LINE 
MOUZBL #1,R0 Assume we can't continue 
BBS #uCBSV_xM INITED > Br if device initialized 
uCBSW_BevSTS(R5) ,10$ ‘gnore request, circuit must be 
0 


f before playing with modem. 
BBCC #1OSV_STARTUP,R7,20$ Br if not startup function 
STARTUP LINE request, enable DTR 


MOVL UCBSL_CRB(RS5) ,R1 3; Get CRB address 

ASSUME IDBSL_CSR 

MOVL @CRBSC_INTD+VECS$L_IDB(R1),R1 ; Get CSR address 

MOV) #XM_I_A_MCLR,(R1 ; Master clear controller, resets DTR 

CLRL ; Allow this function to continue 
10$: BICW #10$M_STARTUP!IOSM_SHUTDOWN'= ; Clear out all processed flags 

ste 1OSM_CTRL,IRPSW_FURC(R3) ; 


a a 


XMDRIVER = VAX/VMS DMC11/DMR11 Device oe 16-SEP=-1 70 AX/VMS v04-00 Page 21 
00-000 SETMODEFDT_LINE = Set mode 1/0 operation g SEP. 1984 88: $6: 83 LORIVER. § SXMDRIVER. MAR; 1 (9) 
4 961 
eh an oe i ‘3 306 208: BBC #10SV_SHUTDOWN,R7,10$ ; Br if not shutdown function, stop 
rtf se: 3 Disable the modem Line. 
OBC 30 47 208 BSBW 2 ep MODEM g Piseble the modem DTR Line 
5 DD 4A 896 PUSHL R cB eddress 
4C 968 ASSUME eee ARB+4+TOQESC LENGTH’ ue 1RP C aE NGTH 
55 53 00900094 8F 1 4C 368 ADDL = #IRPST =LENGTHETO TQESC LENGTHR oR Use end of IRP as TOE 
AA OF 0 54 970 vB #DYNSC foe ta , TQESB_TYPE(R Set structure type 
OC AS S96'AF 9 58971 MOVAB 8*30$ Cra PC(RS) Se wakeup routine address 
A Bea. 8 5D 828 OvB #Taesé aseohGt TOESB_ ROTYBE(R ) ; Set the TQE ryqyest type 
10 A 3 dO 0361 97 OVL 3, TOES R5) : Save inP address in 
0365 974 DSBINT PIPL. TIMER ; Raise IPL 
50 00000000 000F4240 BF 7d O $8 975 MOV SHUT _TIME,RO : Calculate the delta time 
50 Q0000000'GF CO 0376 378 ADDL G*EXESGQ_SYSTIME,RO : eee 
51 Q00000004'GF 08 037D 97 ADWC G*EXESGQ SYSTIME+4,R1 ; 
00000000'GF 16 0384 378 JSB G*EXESINSTIMQ ; Insert TQE on timer queue 
8 8A 97 ENBINT ; Restore IPL 
55 at 38D 980 OPL RS 3; Restore UCB address 
00000000'°GF 1 Baee 4 t JMP BEXESOIORETURN ; Wait for the TQE to complete request 
03% 388 ; TQE wakeup routine 
0396 984; 
0396 985; R3 = IRP address 
0396 3e6 3 RS = TQE address at end of IRP 
Beoe 987 ; 
396 988 ; IPL = IPLS_TIMER 
0396 989 : 
0396 990 $0s: MOVZBL #SS$_NORMAL ,RO ; Return success 
the 991 PUSHL 3; Save TQE address 
0398 936 MOVL IRPS$L_UCB(R3) ,R5 ; Copy UCB address to R5 
O39F 99 BSBW 10_DONE ; Complete the 1/0 request 
0 ~ : Restore TQE address 
O3A S ; Return to caller 
03A6 


xm 
vo 


RO = Status of diagnose request 
R3-R5 preserved. 


ee 
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rai tt SENSEMODE = Sense mode 1/0 operation FDT g73FE 219 4 9:58:08 YORIVER. SREIXMDRIVER.MAR: 1 ° (48) vo 

“ 4 x -SBTTL SENSEMODE = Sense mode I/0 operation FDT 

Ag : SENSEMODE = Sense mode FDT processing 

A6 : This routine is called by the SYS$QI10 service to dispatch a SENSEMODE 

~ 9 ; SENSECHAR 1/0 request. 

A 0 : The Q10 parameters for SENSEMODE are: 

A 07 : P1 = (unused) 

A 08 ; Ps = address of descriptor of buffer to receive counters 

. ; PS-P6 = (unused) 

~ : : The error counters are returned to the caller in NICE format in the buffer. 

. . : Inputs: 

A 15: R3 = 1/0 packet address 

A 16; R4 = PCB address 

A V7 ; RS = UCB address 

A 18 ; R6 = CCB address 

A 19 ; R7 = Function code 

“ : AP = Address of first 1/0 request parameter 

A : Outputs: 

A 3 

A $ 

A 3 

A ; 

A 

A 
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SENSEMODEF DT: : Sense mode FDT routine 
7D 20 AS «2(08~—S—séE; BBC #10$V_RD_COUNT, IRPSW_FUNC(R ),80$ ; Br if not returning counters 
3; Check the caller's buffer 
50 04 aC 00 MOVL P2(AP),RO ; Get user buffer descriptor address | 
1FNORD @# (ROS, 10 3; Check accessibility 
51 60 3¢ MOVZWL (RO),R1 : Get buffer size 
= ¥ ; BEQL 10$ ; Br if zero - error 
50 04 a0 00 MOVL 4(RO) RO ; Get buffer address 
00000000'GF 16 3 J$8 G*EXESREADCHK : Check access to buffer 
8 C : (no return on no access) 
ee , ae, C CMPL R1 ,@CNT_BUFSIZ : Is buffer long enough? 
06 IE O3¢ BGEGU 208 : Br if yes 
50 1% 7D C 10$: MOVa $*#SS$_BADPARAM,RO ; Set error status 
FD39—Oss«331 ¢ BRi ABORTIO 3; Abort the 1/0 request 
: 3; Move driver maintained counters to caller's buffer 
18 C 20$: PUSHR #*M<R3,R4> ; Save registers 
2: & ] D MOVL R : Set address of caller's buffer 
0 04 OD D MOVL #utBSC_XM_DRVCNT,RO ; Get number of driver counters 
51 120 CS) DE 03D MOVAL UCBSL_RM BRVCNT(RS).R1 : Get address of driver counters 
$2 rc ‘ D MOVAB CNITAB Re ; Get address of ID table 
g : 8 £ 308 MOVW (rere, UR ye > Set counter ID 
7 ) Ee MOVL (R1)+,(R7)¢ ; Set counter value 
‘7 50 s#F E SOBGTR RO, 30$ : Loop through all driver counters 


av gal 9a = VAX/VMS DM 
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C11/DMR11 Device Driver 16-SEP-1984 00:26:0 AX/VMS Macro v04-00 Page 23 x" 
Sense mode 1/0 operation FDT mist} 7 $8 :38:23 YORIVER. SREIXMDRIVER.MAR: 1 (ia vo 
EA 1055; 
; Move device maintained counters to caller's buffer 
: } Move devi intained t t Ller's buff 
53 0118 cS) DO EA 1 8 MOVL UCBSL_XM_BASETAB(R5),R3 ; Get address of basetable 
B D4 EF 1059 40S: CLRL 3; Init bitmask 
59 2 89 Fi 1060 MOV (R2)4+,R9 ; Get next counter ID 
Sy F4 1061 BEQL ; Br if end of table 
87 9 89 Fg 1 $6 MOVW RO, (R7)+ ; Set next ID in buffer 
87 94 O3F9 106 CLRB (RP) : Clear count 
0259 OC £1 O3SFB 1064 BBC #NMASV_CNT_MAP,R9,5O0$ ; Br if not bitmapped 
87 B4 0 44 ; Fi CLRW (R7)+ ; Clear bitmap 
54 43 9A $601 1 $$ 50$: MOVZBL a at ; Get next basetable counter offset 
3 13 0404 1 r¢: EQL 0 ; Br if none - no more with this ID 
56 2 9A 0406 106 MOVZBL (R2)+,R6 ; Get next UCB counter offset 
0B €1 0409 1070 BC #XMSV_STS_ACTIVE,=- ; Br if basetable not active 
F3 44 A5 0408 1071 UCBs DEVBEPEND (RS) ,50$ : 
50 6146 6344 81 O40E 1 % ADDB3 (R3)CR4J,(R1)CR6],RO 3; Add basetable counter to saved value 
EB 18 0414 107 BLEQU. 5 ; Br if overflow, etc. 
06 59 OC €E1 0416 1074 BBC #NMASV_CNT_MAP,R9,60$ ; Br if not pj tnepped 
58 B86 O41A 1075 INCW : Increment bitmas 
FD AZ) «658 AB O0461C 1978 BISW RB, =-3(R7) ; Set bitmap 
FF AZ 50 80 0420 1077 60$: ADDB RO,-1(R7) 3; Add to count 
dbBECiézm#Y Be : 1978 BRB 50$ ; Loop through all device counters 
18 BA ge : ey 70$: POPR #*M<R3,R4> ; Restore registers 
0428 1086 : See if counters are to be cleared’. The controller has its own copy of 
0428 1085 ; the counters in its RAM, so the basetable copies can't simply be cleared. 
0428 1084 ; Instead, a negative of the basetable copies will be saved in the UCB and, 
0428 1085 ; later when the counts are requested, the UCB copies will be added to the 
Be 4 1388 3; basetable copies. 
24 20 A3__ OA 1 0428 43 bos: BBC #10$V_CLR_COUNT,IRPSW_FUNC(R3),110$ ; Br if not clearing counters 
0120 ¢5 7C 04 D 1089 CLRQ UCBSL-RCVBYTCNT(RS) ; Clear byte counts 
368 CS 7C 0431 1090 CLRQ UCBSL_RCVMSGCNT (RS) ; Clear message counts 
51. 0130 CS) = 9E)=—(0435 199) MOVA UCBSB_XM_DEVCNT(RS),.R1 ; Get address of saved counters 
52. 0118 CS «(03 CTsCOO43A 3 ADDL3 #3,UCBSL~XM_BASETAB(RS).R2 ; Get address of basetable counters 
59 08 00 or 109 MOVL #uCBSC_XA_DEVCNT,R9 ; Set number of counters 
81 94 044 1938 90$ CLRB (R1)+ ; Clear saved counter 
me E1 0445 1095 BBC #XMSV_STS_ACTIVE,- ; Br if basetable not active | 
04 44 A 044 109% UCBSL -DEVDEPEND (RS) , 1008; | 
FF Al 8 BE 044A 109 MNEGB (R2)+,-1(R1) 3; Store negative of basetable counter 
F259 «OF $f : 38 100$: SOBGTR R9,90$ ; Loop through counters 
50 oe re 51 1339 110$:  ASHL #16, @CNT_BUFSIZ,RO ; Set returned buffer size 
See 55 1101 MOVW s$*#ss 6 ; Success return 
00000000'GF 1 0458 1108 JMP G*EXESFINISHIOC : Post the 1/0 
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DMC11/DMR11 Device artene : 1 mitts 90: $6:08 yaniv Macro V04-00 


setmode 1/0 operation “SEP-19 DRIVER. SRCIXMDRIVER.MAR; 1 
-SBTTL STARTIO = Start setmode 1/0 operation 

STARTIO = Start setmode operation 

; Functional description: 


; This routine is entered to a a setmode request. All setmode 
; requests are queued to single-stream them. 


For all functions a change in the characteristics is done. 

For startup, the action is to request and set up the UNIBUS 

; map for the base table and receives. This data is saved 

; after allocation in the UCB. After this the base table and 

; receive buffer addresses are passed to the device, thus starting 
; the protocol running. 

; quotas are returned. 

; Inputs: 


R3 = 1/0 packet address 
RS = UCB address 


; Outputs: 
R3 and RS preserved. 


: For shutdown, the device is master cleared and all buffers and 
: 1/0 request completed. 
§ 


TARTIO: ; Start 1/0 routine 
BBC #10$V_STARTUP,= ; Br if not startup request 
IRPSW-FUNC(R3),10$ : 
; Startup request 
BBC #XMSV_STS_ACTIVE,- ; Br if it is NOT active 
UCBSLDEVBEPEND(RS).5$ 
MOVZWL IRPSL_PID(R3) RO ; Get process index from IRP 
G°SCHSGL PCBVEC RI ; Get address of PCB address vector 
Vv (R1)CROJ,RO ; Get PCB address 
CMPL PCBSL_P1B(RQ) .~ 3; Still same process? 
JRPSLPID(R ) 3 
BNEQ $ ; Br if not - forget it 
MOVL PCBSL_JIB(RO) ,RO ; Get JIB address 
MOVZWL IRPSW~BOFF(R3),R1 : Convert quota to longword 
ADDL 1, J16$L_BYTCNT (ROD ; Return byte count quota 
ADOL R1,J1B$L 1 speaue 3 .-and byte Limit quota 
3$: CLRW 3s RPSW_BOFF(R3) ; Reset quota charge 
VACTIVE,RO 3; Device already started 


Complete the request 
5$: BRia STARTUP 
: Shutdown request 


Start the device 


dea 


,. a 
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rai tt STARTIO = Start setmode 1/0 operation g- =SEP-19 38 88: $6: rf YORIVER. SRCIXMDRIVER.MAR; 1 ° hp 
E1 049C 1162 10$: BBC #i08y SHUTDOWN, = ; Br if not shutdown request 
ose {i 09 116 IRPSW- PUNCCRS) 20$ ; : 
%o 4 or 3C O4A1 1164 +t goer BEVOrr LINE ,RO ; Assume device not started yet 
E1 Beas 1165 BBC xMS$0_STS Aaatt - ; Br if not active 
OB 44 . 4A 1166 UCBs DEVBEPEND (RS) ,40$ : 
O8F 30 O4AB 116 BSBW quytoow 3 Shutdown the device 
03 11 OA 1108 BRB 0$ H 
048 118 3 
rt 1309 : Just a change mode request 
O3F3 30 Oies 1128 208: BSBw CHANGE _MODE ; Change mode and characteristics 
50 01 3C 0O483 1174 308: MOVZWL S“#SS$_NORMAL,RO ; Set success 
51 44 A5 DO 0486 1175 40S: MOVL UCBSL_BEVDEPEND(RS).R1 : Set device characteristics 
Been 1128 REQCOM ; Complete the request 


G 3 
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yon 008 STARTUP = Start up controller -SEP-1984 8:58:08 LORIVER. SREIXMDRIVER.MAR: 1 : (3) ve 
4C0 1179 -SBTTL STARTUP = Start up controller 
4CO0 1180 ;++ 
rt: 1 1 ; STARTUP = Start up controller 
rt: i § ; Functional description: 
ace 1185 ; This routine starts the controller running. The action is to allocate 
4CQ 11 § ; the map registers for the base table and receives. Once this is done, 
04C0 11 3; the unit is master cleared and the base table and mode are set up. 
Be 68 1% 3 3; The receive buffer List is filled and the receives started. 
Bete 1190 ; 
4C0 1191 ; Inputs: 
04C0 1136 ; 
04C0 1193 ; R3 = 1/0 packet address 
04C0 1194 ; R5 = UCB address 
04C0 1195 ; 
04C0 1196 ; IRPSL_MEDIA(R3) = New mode buffer 
04C0 1197 ; IRP$L_SVAPTE(R3) = Address of allocated base table. 
04C0 1198 ; IRP$W_BOFF(R3) = Quota taken from caller. 
04C0 1199 ; 
04C0 1200 ; Outputs: 
04C0 1201 ; 
04€0 1 O¢ ; Device started and 1/0 request completed. 
04C0 1203 ; 
04€0 1204 ; R3,R5 preserved. 
04C0 1205 ;-- 
04C0 1606 STARTUP: ; Startup controller 
44 045 18 08 00 FO O04C0 1207 INSV #0,48,#24 ,UCBSL_DEVDEPEND(RS) ; Reset status and error flags 
0300 30 O4C6 1208 BSBW CHANGE _MODE > Set new characteristics 
ot 1619 3 Initialize the buffer and 1/0 request queue heads 
50 08 od0 O04C9 1 1 MOVL #UCBSC_XM_QUEUES ,RO 3; Set number of queue heads 
52 0090 CS 9& O4CC 121 MOVAB UCB$Q_RM GUEUES(RS).R2 : Set address of first head 
62 9E 0401 1214 10S: MOVAB (R2), TR2T+ 3 Set forward Link 
82 FCA 9E 0404 1s}? MOVAB <-4(R2),(R2)+ 3; Set backward Link 
F6 5 F ores : 16 SOBGTR RO,10$ ; Loop through all queue heads 
Reon ’ + 3 Initialize the transmit and receive mapping info vectors. 
50 OF DO 0408 1220 MOVL #MAX_RCV+MAX_XMT,RO ; Set number receive and transmit slots 
O4DE 1221 ASSUME UCBSC_XM_RCV"MAP+<4*MAX_RCV> EQ UCBSL_XM_XMT_MAP 
51 0D0 c5__—iODE pet 1 § MOVAL Ucest XM_RCV_MAP(RS),R1 ; Get mapping vector address 
1 1 ce 4E3 1 20$ MNEGL #1, (RT)+ 3 Indicate no mape ng info 
FA 50 F 4E6 1224 SOBGTR : L2op through all mapping slots 
O10A CS. (O07 90 = O4ED «1225 MOVB #MAX_RCV,UCBSB_XM_RCV_MAK(R ) ; Set maximum concurrent receives 
0108 CS «4070 «490 O4EE 1 $ MOVB #MAX_XMT,UCBSB_XM_XMT_MAX(RS) ; Set maximum concurrent transmits 
o11c cS. sO1tséCE#” : : MNEGL #1,UCBSL_XM_BASEMAP(RS) ; Set no mapping for basetable yet 
199 BF 6AS 6(O4F8 (1 § SUBW3 #BASETAB SIZE,- ; Compute quota for receive buffers 
010¢ ¢5 30 a3 4FC 1230 IRP$W_BOFF (R3S ,UCBSW_XM_QUOTA(RS) 
51 106 C C 0501 1231 MOVZWL UCBSW"XM QUOTA(RS) RT ~; Get buffer quote as longword 
50 4 C 306 1 : MOVZWL UCBSW~DEVBUFSIZ(R5S,RO ; Get buffer size as longword 
ss C6 A 1 DIVL RO,R1 ; Compute maximum number of receive 
250 1234 :; buffers based on quota 
010A C5) 551s 91s 50D «1255 CMPB R1,UCBSB_XM_RCV_MAX(RS) ; Is number less than maximum? 


H 3 
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9 1 219 1 § BGEQU gos : Br if not - value o 
O10A C5 1 9 14 1 MOVB InbatPt XM pebbled : Else reduce number. to quota 
Oc AS DO «60519 1 8 30$: MOVL Ire 16(R3),- ; Save starter's process ID 
0110 ¢ sic 1 =xM_PID(RS) : 
if 1240 ; 
if : a : Save basetable into. 
—. a3 oc ci OSIF 1 rk ADDL3 #BAS_T pasa pnest SVAP TERS). R4 ; Get basetable address 
0118 C 54 00 0524 1244 MOVL R4,UCBSL BASET ETAB(RS : Save in ucB 
C a3 D4 0529 1245 CLRL —s I RPSL SURPT ECR : No buffer or quota 
OA B4 O052C 1 ‘8 CLRW IRPSUT SOF F (RS : for 1/0 pos 
08 AB b2 F 124 BISW #UCBSA_XM Ini TED. 3; Indicate me) fields now initialized 
68 A 33 1 : “8 UCBSwW_BEVSTS(R 3 ate deer so shutdown can cleanup 
05 1250 ; Allocate map registers for receive buffers. 
05 1251 ; unbuffered datapath (DP0) is used for all ivo's y= to the fact th 
05 1 26 3: the controller can initiate retransmissions but on the 11/780, the y eemeeet 
B : 27 3; requires purging before it can be reused. 
42 AS B80 05 1255 MOV UCBSW_DEVBUFSIZ(R5),- ; Set buffer size 
7E AS 05 : 1256 Y BSH, BCNT(RS) 
7C AS. OFF 8F =©B0 (05 1257 MOVW 1,0CBSW ROrE (RS) ; Set worst case byte offset 
4 24Aa5 00 O05 1258 MOVL Sees CRB(R5) RS : Get CRB address 
0542 1259 ASSUME VECSW “AAPREG*S EQ VECSB_NUMREG 
B36 1260 ASSUME VECSB_NUMREG+1 EQ VEC$B_DATAPATH 
34 AG «2S «600542 «1261 CLRL crest INTD+VECSW_MAPREGTR4) ; Clear map register + datapath 
OOCO 8F BB 0545 1 $¢ PUSHR <Rb,R7> : aS regs 
56 0000 CS DE 0549 126 MOVAL UCBs. xm -RCV_MAP(R5S) ,R6 ; ot napping slot address 
57 O10A CS’ QA S268 +e MOVZBL UCBSB"XM-RCV-MAX(R5),R7 ; Get number of receive slots 
00000000'GF 16 0553 1265 40S: JSB G* IOCSALOUBAMAP : Al locate a set of map registers 
750 &€9 0559 1266 BLBC RO,50$ : Br if unavailable 
86 34 a6 DO 055C 1267 MOVL  CRBSL_INTD+VECSW_MAPREG(R4) ,(R6)+ ; Save map info 
FO 57. —sF 5 0363 ' $8 SOBGTR R7,408 : Continue until done 
00CO 8F BA 0563 1 $3 50$: POPR #*M<R6,R7> ; Restore regs 
18 50 €9 0567 1271 BLBC RO,60$ ; Br if error 
056A 1676 : 
056A \$7 3 Map base table 
OS6A 1274; 
FEOO AB geen 1275 BICW3 #*C<VASM_BYTE>,- t Desereble byte offset 
70 AS (0118 cS 368 1276 UCBSL_XM~BASETAB(RS) uceiw’ SOFF (RS) 
7E AS 0100 BF 4=6BO «(0578 «(1277 MOV MBASETAB” $12 E -UC asi _BCNT(RS) ; Set basetable size 
00000000'GF 16 0579 127 JSB G*10 : subsets map registers 
8 Hg 8 OS7F 127 R te :; Br if allocated 
50 0344 8F C 05 § 1280 60$ MOVZWL #SS$ INSERAPRES. RO ; Set insufficient map registers 
024 1 ; 7 : 1 START ERRO : 
34 AG ODO OaBA 1 Hy 70$: MOVL CRBSL_ LA ope Be perneecnss, - ; Save basetable mapping info 
011C C5 58D 1284 Ucest “1 BASEMAPTRS) 
EF 0590 1285 EXTZV SSeV PN, : paserante page number 
51, 0118 So 15 592 1 6 SAAVASS VEN UCBs xn east 
0,000 OO'GF v0 0597 1 MOVL ante of SP BASE tepte address 
7 6041 E HH 1 3 MOVAL (no) R1)7UCB SVAPTECRSS $ a PTE address 
60000000 GF 6 0503 1 JSB G*1 LOADU PA oad the basetable map registers 
5A9 1290 ASSUME Scasu sSOFr EQ UCBSW_BCNT 
34 AG =6©FO (Q5A9 «(1291 INSV cRes INTDSVECSW MAPREG(R4), - ; Set BA9-BAIS 
7C AS) 6(07—(OO9 SAC 1292 7UCBSW_BOF F TRS) 3 
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SoMa 2 ieee oe aati BEE 198¢ OO:50:43 EDRIVER. SRCIEMORIVER MAR; 1 ay 
NADRANER STARTUP = Start up controller ii oman | 
is e . e - 
F 0580 1293 EXTZV 47,82, W_MAPREG(R4) RO 
5056 BS so ae 1S nav RPSUMIPCVESINGDUPRES ST nn 
eA ee re Bt : 39 ; Master clear the device and notify it of the address of the base table 
1298 | R4),R4 ; Get CSR address 
eet Bi tea ORE NAT pment eS pene 
R4) ; Se 
too BHD HBL RB epee | Et Ane tah caste 
a 0300 1 08 TIMEWAIT O13 eBXA_I_A_RUN, (RG). : Br if device NOT ready 
0550 €9 sr 1 8 BLBC 0.8 : Else, re-enable interrupts 
FB 1308 BRB 95$ ; And continue | 
oe SF 09 ; Else, wait about a second for diagnostics | 
OSFD 1308 85$: WFIKPCH 90$ #2 : Schedule a fork process 
Soom 4810 teu” #uCBSM. TIMOUT,UCBSU_STS(ASS n tteer timeout statu 
ot 8000 ar 83 613 : 1) BTW #XM_ILALRUN, (RG); Sorry ee 
4 800 — ; 
1g th ; Else, error 
022¢ 31 Osta } 18 mOV C-FORR PROC CUCBSL FPC(RS) ; Set Fork process PC address 
eee Be 1315 998: CAPR” MONE DAR AAO ESAT (Re) ; device a DMCI1? 
03 A4 83 > 06 7 1316 BNEQ 338 : Gise. must be » DCT 
72 «90 bese 1318 998: ROVE #OTS_DMR11,UCBSB_DEVTYPE(RS) s'Indicate & DM 
petra Ns 2685 : 20 DMR unit - get interface bits, modem signals and configuration bits 
06 : E ane 
0630 13 : Now, get the interface bits (INTMOD, V.35, RS-232, RS-422 
1323 ; ; Assert RQI 
bed Migs 2639 é TIREWALT #O7ARRTLMCRDI. CRG) ol ; oy Sell ne spe to come ready 
17 50 8 0638 1386 DSBINT UCBSB, DIPL(RS) : Else, disable device interrupts 
0658 1327 DSBINT 1008 Re ; Wait for about 2 seconds 
G6e¢ 1389 1008: ToroRk 8S 
oe PRE TREPE EN tsa Beit Bi cme ym 
1 et SF 02 oe bers ae SROOSY HASINTROD RI GAT Save in UCB @ DEVDEPEND#$ 
N47 aS 2! 90 OorF 1 at SnobS Xn Reese RO ; Shift down next two interfac 
' 50 Mee . - tt} 1336 Bic #"CCRODSH-XR RS23e!=" ; Remove extraneous bits 
tr BF BA eee ite? BICB  RODSR. XR Reaze> Ri ; . 
1 8 bear 1339 BISB R1,UCBSL-DEVDEPEND+3(R5): Save in UC 
ber? 0690 : : } Now, get the modem signals — 
; (R5) ; Save modem signals 
ss HM © 0890 a} cURW oo pwicberse sagem se meet RUN, RDI and RQ! bits 
1 a 
aes i \ ‘§ : Now, check the BSEL1 lockout switch = and get the config bits if okay 
98 1345 ; R4) ; Did we clear RUN? 
Ty HR 1 _A_RUN, ( . = no BSEL1 Lockout 
“og dee ee Rat tit anc RE RET Hesire she cone 
1 Q69F 134 1,° 3 Indicate s 
ab BF Ht SAD 1369 1108: BISB #MODSM_XM_BSEL 
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47 AS UCBSL eae ee weet 3 
06 AG 3930 HH 8 MOVW ae ST XM UCODE(R4) sao; 8 switch pack bits (config) 
64 00 8F A BISW XAT LA STEPUPS HM_L_A_ROAL Step nicroprocessor 
WAIT10 + 26 useconds 
50 06 A4 860 MOVW 
> we BR OM 
47 AS 3] 88 
A 11 


— 
WI 


ao 
>>> 
oNM 


o~ 
4 
ya) 


1288.80 yi RO : ro AF uration bits 

EXTZV : Get High Speed & DMC conpet mode bits 
ASSUME hobs RIGH EQ 0 : NOS Tee needed! 

BISB ycest ~DEVDEPEND+3(R5); Save in ue 

BEB F3Oe 3; Continue in common code 


06 AS «60390 BF C1 
03 ; Br if yes - okay 
4705 96 


MODSM 
UCBSL ~DEODEPEND +3 (RS) ; Else, indicate hi naepeed u-code 


IN 
130$: OSBINT UcBse- DIP : Disable device in errupts 


9 
& 3 
: o DMC uni t 
2 : Now, check the BSEL1 lockout = and get configuration if okay 
64 8000 8F AA 4 i208: e1cw #XM_1_M_RUN, (R4) : Clear RUN bit. 
64 8000 8F 5 3 BITW #XM"1"M~RUN, (R4) 3; Did we clear it? 
> E BEQL 1g25 ; Br if YES - BSELI is okay 
00cé6)=—sC3311 BRW 150$ 3; Else, BSEL1 is locked out 
125$: ASSUME MODSV_XM_HIGH EQ 0 ; Else, read rom u-code 
80 8F 90 MOVB #MODSA_XA_B : Indicate BSEL1 is okay 
47 AS 6 UCBSL BEVDEPENDS 3 (R5) ; ..and assume Low _ speed u-code 
06 A4 814D 8F B0 8 MOVW #UINST_RROM,XM PUCODE (RA) “Read the DMC r 
64 0300 8F AB 3 BISW #XR TLR STEPUPT XM_1_M “Romi, Step the "atcreprecessor 
WAIT10 8 bs fC 5 useconds 
64 0300 8F AA 6 BICW M_1_M_ROMI! XM 1_M_STEPUP, (Ra) ; Clear maintenance bits 
64 0400 8F AB 8 BISW PXRTITATROMO, CR (R&) ; Set ROMO bit 
° WAIT10O #2 3 usit 20 useconds 
CM #8 UCODE,XM_UCODE(R4) ; Is it low-speed u-code? 
9 1308 
8 
B 3 
4000 8F B60 ; MOVW #XM_1°M_MCLR, (R4) : Master clear controller - again! 
A TIMEWAIT #15, 2XA_I_M_RUN,(R4),W ; Wait for RUN - try 150 usecs 
9 BLBC — RO, 1858 : Br if device NOT ready 
ENBINT ; Else, re-enable interrupts 
11 BxB 150$ ; And continue 


PP OOO OWDOOVMIMIMIVIWIRINIO TH HMMMMMmMmMmMmmnooO 


taht Ath tape Rete at HO OHH OCHS OO HOS OF COO Fe 4 
MONI 


SN NN SSN NSS SSSI NNSA AA AA AAA AAAAAOO Ono $ 


DOONAN EWN SO OOD NAME WIN © OO NAME WN SO OD NOU EWN O ODNOULSWNO 


BELL FAWN AAAI AAAI NANI WWIII AINA AINA AIA AIA AAAI NIAAA 
DOOOOOOOOO0 OO 0000 0969 09 09 09 09 09 09 09 SII NSN NN NIAAA AAAAAAAMUIMNIMNIUIUIVIUT 


et a et a = = 2 St 4 sd 4s 2 2 sd 1 ss os ss SS 2 a 1 1 st te 


135$:  WFIKPCH 140$,#2 3 Else. wait about a second 
140$: 10FO chedule a fork process 
AA BIcw sUCBSA TIMOUT ,UCBSW_ sTsck5)° ; Clear timeout status 
83 A BITW mI atest: ; Device running? 
12 B BNEQ 130 : er if yes. 
ae 7B4 BRW START_CTRL_ERRO lse, 
E are! 150$: MOVAB wW*FORR_PROC, UCBSL _FPC(RSS & 3 Set i process PC address 
78D ; 
yep ; Set LOOPBACK mode if enabled 
£1 78D BBC #XMSV_CHR_L ; Br if not loopback mode 
7BF UCBst ~DEVDEPEND (RS) 1808; 
A8 ote 1 BISW XM_1"M_LOOPB, (R4) 3; Else, set loopback flag 
3 7¢ ‘ 180$: MOVB ax 1_M_RQI! ;RO ; Set KH for basetable-in 
7CA BSBW START-REQ P Req por 
BO 07CD 4 Vw  UCBSWBOFF(RS) .XM_ PORT(R4) : “Set ‘eiahis BAO-BA15 
B0 07D 05 MOVW  UCBSW"BCNT(R5).XM~PORT #2(Ré 4$ 3 "Set basetable BA16-BA17 
7D 6 SETIPL : Disable all interrupts 
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64 A5 05 £0 O7DA 1407 BBS #UCBSV_POWER ,UCBSW_STS(R5),- ; Br if power failed 
A 7DE 14 8 START_CTRL_ERROR ; | 
64 0 AA Q7DF 14 BICW #XM_I7M_RQT, (R4) ; Release port 
7E2 1410 SETIPL UCBSB-FIPL(AS) : Restore IPL | 
0081 30 43 Voi} BSBw START_WAIT_PORT ; Wait for controller ready | 
434 1418 ; Set the device mode and enable interrupts 
50 4 90 O7E9 1415 MOVB #XM_1_M_RQI!1,RO ; Set command for control-in 
6 10 O7EC 1416 BSBB START-REQ PORT ; Request port 
04 A6 BS O7EE 141 CLRW XM_PORT (RZ) 3 Clear port (7?) 
AB O7F1 1613 BICW3 #*C<<XMSM_CHR_MOP!- ; Set mode bits 
7F2 141 XMSM_CHR_HDPLX!- _; 
7F2 1420 XMSM~ CHR” SLAVE>@8>,- 
06 AG 43 AS F2FF BF O7F 1421 UCBSL_DEVBEPERD=-1(R5) ,XM_PORT+2(R4) 
64 20 8A bree 1° § BICB #XM_1_M_RQI,(R4) ; Free port 
014C C5 64) BO COO7FC O1424 MOV XM_I_CSR(R4) ,UCBSL_XM_LSTCSR(R5S); Save CSR values 
os CS 02 AS «BO 0801 1425 MOV XM_O_CSR(R4) ,UCBSL_XM_LSTCSR+2(R5) 
0148 CS 404 AG) «BO 0807 1426 MOVW XM_PORT(R4) ,UCBSL_XM_CSTPRT(R5) ; Save port values 
014A C5 06. A4 BO O080D 1427 PORT+2(R4) L_3M LSTPRT#2(R5) 
OC AS OB84'"CF 9E 0813 1428 MOVAB W*FORK_PROC,UCBSL_FPC(RS5) 3; Set normal fork process 
02 AG «440 BF 690 «(0819 1429 MOVB #XM_O_A_IEO,XM_O_CSR(R4) ; Enable output interrupts 
02 a4 «440 8F 8690 OBIE 1430 MOVB #XM~O"M~1EO,XM~O~CSR(R4) > (again) 
0825 1431 SETIPL ; Disable all interrupts 
64 A5 05 £0 0826 1o36 BBS #UCBSV_POWER ,UCBSW_STS(R5) ,- :; Br if power failed 
1E 082A 143 TART_CTRL_ERROR : | 
0800 8F AB 082B be 4 BISW #XMSM_STS_ACTIVE,- 
44 AS O82F 1435 UCBSL~DEVDEPEND(R5) ; Set controller now active 
8 ! 1038 SETIPL UCBSB_FIPL(R5S) ; Restore IPL 
0833 \o38 3; Start receives and complete the request 
OO8E 30 0835 1440 BSBW FILLRCVLIST :; Fill receive buffer List | 
0100 8F Al 0838 1441 ADDW3 #BASETAB_SIZE,- ; Set quota as bytecount in 1/0 status | 
50 010C C5 083C 1206 UCBSW_XM_QUOTA(RS),RO ; 
50 50 10 78 0840 144 ASHL #16,R0,R 3; Shift into place 
50 01 BO 0844 1444 MOVW  § S*#SS$"°NORMAL,RO ; Set success 
OD 11 0847 1445 BRB START_COMPLETE ; | 
sre 144? :; Error during startup - shutdown and complete 1/0 request | 
0849 1449 START_CTRL_ERROR: ; Controller error during startup 
50 0054 8F 3C pee? 1450 MOUZWL #SS$_CTRLERR,RO 3 
4E 1451 START_ERROR: : Error during startup 
D 4 1336 L RO ; Save failure status 
0536 0 50 145 BSBW SHUTDOWN 3: Shutdown in case partly started 
50 8ED0 53 1454 P RO ; Restore status 
856 1455 START_COMPLETE: : Complete startup request 
51 44 A5 00 $20 1938 MOVL UCBSL_DEVDEPEND(RS),R1 ; Get device dependent longword 
535 58 AS 00 5A 145 MOVL UCBSL_IRP(RS) ,R3 ; Get 1/0 packet address 
85E 1938 REQCOM ; Complete 1/0 request 
64 145 
64 1460 ;++ 
64 1461 ; START_REQ_PORT = Startup sequence request port 
ra 1206 ; START_WAIT_PORT - Startup sequence wait for port 
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: Inputs: 


| 
64 1464 | 
64 1465 ; 
64 14 § 3 RO = Command (REQ_PORT only) 
64 1467 ; R4 = CSR scerecs 
64 1468 : RS = UCB addre | 
oe 1998 ; 00(SP) = Return address 
4 1471 : Outputs: 
Bet 1478 2 | 
nee eS 3 If unsuccessful, exits to START_CTRL_ERROR. | 
ase 1475 START_REQ_PORT: ; Set function and wait 
64 50 88 64 1328 BISB RO, (R4) 3 Set command in CSR | 
64 50 88 Baek 147 BISB RO, (R4) 3; (aga 
86A 1478 START_WAIT PORT 3; Wait for controller ready 
086A 1479 SETIPL ‘ucese _FIPL(RS) 3; Lower IPL 
O86E 1480 TIMEDWAIT TIME=#25, 
O86E 1481 INS $1=<B1C85 #*COXM_1_M_RDI!XM 1_M_RQI>,(R4),R2>,- ; Get flags 
O86E re INS2=<BEQL  20$> ; Br if Both lear -done 
O86E 148 INS3=<CMPB | OAXM BF -M_RDI'XM_I_M_RQI,R2>,~ ; Check if both set 
OB6E 1484 INS4=<BEQL 2085, ; Br if both set - done | 
43 1485 BONG) BL =2US 
05 50 €8 0899 1058 BLBS RO,40$ ; Br if success 
5E 04 CO O89C 148 ADDL #4,SP 3; Else, Pop return address 
Ag 11 089F 1488 BRB START_CTRL_ERROR ; Exit 
O8A1 1490 40$: SETIPL UCBSB_DIPL(R5S) ; Raise IPL again 
05 OB8AS 1491 RSB 3 
O8A6 1492 


= 


= VAX/VMS_DMC11/DMR11 Device prior” 


CHANGE MODE = Change mode and characteri .* 3 Ee=1 ob 8:58:98 LORIVER. Bae eubRivER — dB, 


SEP-19 DRIVER. SRCIXMDRIVER.MAR; 1 


r 1438 ae «SBTTL CHANGE_MODE - Change mode and characteristics 
. 1438 ; CHANGE_MODE = Change mode and characteristics 
1038 : Functional description: 
: | 
A 1 0 ; This routine is entered for changing the mode and characteristics on an idle 
A6é 1501 ; or active unit: | 
A6 15 § 3 
A6é 15035 ; Inputs: 
A6 1504 ; 
A6 1505; R = 1/0 packet address 
S " 1 $ 3 R5 = UCB address 
O8A6 1508 ; IRPSL_MEDIA(R3) = Receive buffer size 
aA 139) ; IRPSL— “MEDIA+4(R3) = New device dependemt characteristics 
O8A6 1511: The device dependent longword is defined by SXMDEF: 
08A6 1316 $ 
O8A6 1 51 3 pwewrecesree eee con ewee forme or eee eenes weet manrea nen eon ese see bm em wore ane we wow ewan es } 
O8A6 1514; ' not used { error status | status : characteristics : 
08A6 1 51 5 3 pwr ee mmo w es ween es fGeeee arene erecoe oes ewan fee re ee Oe + | 
08A6 1316 3 
8A6 1517 ; Outputs: 
8A6 1518; 
O8A6 1519 ; UCBSW_DEVBUFFSIZ(R5) = Receive buffer size 
Bang 13 y 3 3 UCBSL_DEVDEPEND(R5) = Device dependent characteristics 
O8A6 15 é EHANGE MODE : | 
38 AS) «97 «=(OBAB O15 DECB IRPSL_MEDIA(R3) 3; Valid data buffer? 
1A 12 «OBA9 1524 BNEQ 10$ ; Br if not 
3A A353. BO O8AB 1525 MOVW IRPSL_MEDIA+2(R3) ,- ; Set new buffer size 
42 A5 OBAE 1526 UCBSW~DEVBUFSIZ(R5) 3 | 
FFFFF7FF 8F CA Baer 15 BICL #*C<XASM STS _ACTIVE>,- ; Clear all but active flag 
44 AS 8B6 1528 UCBSL_DEVDEPEND (RS) 3 
00000800 8F CA 0888 1529 BICL MSRA_STS_ACTIVE>,=- ; Clear active flag 
C At O8BE 1530 IRPSL_MEDIA+4(R3) : 
CAS CB 08CO 1531 BISL  IRPSLMEDIA#4(R3),-  : Set new characteristics | 
44 a5 o8c3 15 : UCBS$L~DEVDEPEND(R5) ; 
05 08cs 133 10$: RSB 
08C6 1534 | 
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: ! § eSBTTL FILLRCVLIST = Fill receive buffer List | 
: T = Fill receive buffer List 
é i § : ADbRCM TET - Add a buffer to receive List 
40 ; 
3 i ty 3 Functional description: | 
3 i rk : This routine fills the receive buffer free List up to the quota specified 
C6 : te 3 at device startup. | 
3 1 rk : Inputs: 
3 i d : R2 = Buffer address (ADDRCVLIST only) 
0866 134 ; = UCB address 
dace 1381 ; IPL = FIPL | 
BEE IE | ome 
: R5 = UCB address 
asce 1386 : R1,R2,R4 destroyed. 
ce PIL tter List 
08C6 1558 FALLRCVLIST: : FILL receive butter. 
25 ta 1300 BBS #XM$V_STS_ACTIV AG - 3; Continue if device active 
01 44 ee ” th 1561 UCBSL ~DEVBEPEND (R5) ,ADDRCVLIST : | 
05 Oace 1368 Iste : Add to receive buffer List 
OBCE leas OE PUSHR #*M<RO,R3> > Save registers ; 
a2 ge nt 1206 5$: CMPW UCBSW  SEVBUF SIZ (RS) .- 3; Can new block be allocated 
gees 1566 CBSW"XM_QUOTA(RS) : 
_— ? 1A OB 1567 BGTRU Hit 3 or if ne - List filled 
; Zero size 
004C ar 4} o808 1308 ADDS ORCY T_DATA+CXB$C_TRAILER,=- 3; Compute needed block size 
" ad $3 05 deel 1359 TSTL Uce8a. POvEW" SLESRE) : patie allocated already? 
: Br es 
0000000 OP ig gee 1238 tits eeyiguemnrser 5 Bi Locate nonpaged memory 
7 ay EF eER 1 2re 7$: AbyG RCV_W oPLESIZE (Re) : Insert block size 
OR AD 17 90 OBFS 1376 * «= Rov S*ADYNSCCHET VoBRBLKTYPECR2) ; Insert block type 
ah 4 ' 12/8 INSQUE (R2),UCBSQ_XM_ RCV BUF (RS) : Insert block on List | 
send 42 +3 fe 1378 SUBW UCcBSW “BEVEDESTE (R5),- : Decrement quota | 
tat £3 hf 13, R 8 YP Seu IR GUOTALRS) : Clear buffer pointer 
B 30 : ° BRE 5 : | 
C ' 
} . buffer alloc failure 
: T @#XMSV_STS_BUFFAIL 3; Set bu 
3 : — —— yCBsL- “DEVDEPEND(R RS) ; | 
10 11 , ° 1 é Bra 0$ 3 eh | 
Sd ; Clear buffer alloc failure 
90C 1 208: CLRBIT ouney _5TS_BUFFAIL : C 
311 5 MOVL Ro eRO™ ees a ; Set address of buffer 
” be i 314 | 0 BEQL ; Br i wane te | 
00000000'°GF 16 Bi6 ' 3 JSB G*COMSDRVDEALMEM 3; Dealloca | 


receive buffer List 


DSBINT UCBSB_DIPL 
BSBB START “RECE 


ENBINT 
POPR #*°M<RO,R3> 
RSB 


B 4 
11 Device Driver 7. 
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I 


Fox} 86 00;50.43 LDRIVER. SAE IRMDRLVER. MAR; 1 
5 


ynch access to device . 


; Restore IPL 


: Start the receives 
: Restore registers 
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——————— | 


; Save buffer address 


R3 ca 

MOVZWL 2(R4),R2 ; Set number of map registers 
64 MOVZWL (R4),R3 ; Set first map register number 
64 CLRL 4 ; Use unbuffered datapath 
64 JSB G* IOCSLOADUBAMAPN ; Load the aoe registers 
64 POPL R3 ; Restore buffer address 
65 B8S8B LOAD_PORT ; Load buffer into port 
$2 RRB START_RECEIVE ; That was fun - try another 
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2 4 1 9 ais -SBTTL START_RECEIVE = Start any receives 
3 B 16 : ; START_RECEIVE = Start receives 
: 8 1604 : Functional description: 
928 1098 : This routine attempts to start any receives that may be pend ine. This 
92B 1607 ; involves mt me tay a free receive buffer, mapping, and loading its address 
92B 1608 ; and size into the device. 
92B 1609 ; 
BS Rip ; frown 
03 : 161¢ : RS = UCB address 
ose eis ui tases 
0928 1616 ; Outputs: 
09 8 1618 : RS preserved. 
09 8 16 0 ; RO = R4 destroyed 
0928 16 § START_RECEIVE: ; Start receive operation 
51 O10A CS 9A 0928 16 MOVZBL UCBSB_XM_RCV_MAX(R5),R1 ; Get max concurrent receives 
51 0108 CS 51 00 Fe 08 9 16 : re #0,R1,UCBSB_RM_RCV_MAP(RS),R1; get, {ree mapping slot 
3 Br none 
53 00C0 DS OF 0939 1626 REMQUE SyCBSQ_XM_RCV_BUF (RS) .R3 : Get a free buffer 
01 1C O93E 1627 BVC 20$ ; Br if buffer 
05 eae YS : 10$: RSB 3 
09 1630 : Mark slot in use and create buffer address / character count image, 
Be 1° 1 ; and load UNIBUS adapter map registers. 
8 16 : 208: SETBIT R1,UCBSB_XM_RCV_MAP(RS) ; Mark slot in use 
1634 MOVB R1,RCV_B_MAPSLOT(R3) 3 Save mapping slot number used 
0948 1635 MOVAL UCBSL_RM RCV_MAP(RS)CR1),R4 ; Get mapping info slot address 
0 16 $ MOVAB RCV_T-DATA(R3),R1 ; Get receive buffer data addr 
0 16 MOVW R1,RC0_L B 3) ; Set BAO-BA8 
1638 MOVW UCBSW_BEVBUF SI (R5),- ; Insert character count 
1039 RCV_L wie tt ) 3 
1640 INSV (RG) 99,47, RCV_L_BACC(R3) ; Set BA9-BA15S from map reg 
1641 EXT2ZV 7.86 (R4)>R : Get BAl6-BAI7 also 
1649 INSV —- RO, #30,#2, RCV_L_BACC(R3) > Set BA16-BA17 
1644 
194? 
$ 
1669 
1650 
1651 
1652 


= VAX 
LOAD. 


/ 
Pp 
" 
Q 
Q 
" 
" 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
i] 
0 
0 
0 
0 
0 
0 
Q 
0 
| 


= 
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dD 4 
DMC11/DMR11 Device Driver oe | eb 4 00:36:08 ve Macro v04-00 Page 36 
= Load controller input port -SEP-1984 00:20:4 DRIVER. SRCIXMDRIVER.MAR; 1 (16) 


654 : -SBTTL LOAD_PORT = Load controller input port 
LOAD_PORT = Load controller input port 
Functional description: 


MADR EMER 
v04-000 


Request the controller's input port to start an 1/0 request. Since the controller 
doesn't service input requests when it is busy, it ay not be attainable 

in a reasonable amount of time. In this case, the driver will just have to 
request an interrupt. 

Inputs: 


R3 = Transmit 1/0 packet or receive buffer 
RS = UCB address 


IPL = DIPL 
Outputs: 

RO = Success if port loaded immediately 

RG = CSR address 

RS = UCB address 

RO=R1 destroyed. 
OAD_PORT: ; Load buffer address/size into port 
Receive buffers go to head of queve to get initiated first. 


This prevents the Link from shutting down due to receive buffer 
starvation. 


FT Oe Oe Oe Oe Oe Se Be Ge G4 Se Se Gee Se Ge Ge Se Ge Se Se Ge Ge Sete te 
+ 


Note that receive buffers can go onto queue in any order since, they are 
merely a and one is exactly the same as another. However, 
u 
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DONA NEW 3 O ODNOAU EWI O ODNOU EWN Oo 


transmit ers contain information and their order must be preserved. 
50 O00A4 D5 9E 09 90 MOVAB @UCBSQ_XM_PORT+4(R5),RO ; Assume rogyest goes at tail of queue 
OA OA AS 91 09 91 CMPB  —sRPSB_TYPE(R3),S*#DYNSC_IRP ; Is buffer a transmit? 
05 13 09 3 BEQL 108 :; Br if yes 
50 OOA0 CS 9E& 099 9 MOVAB vraee XM_PORT(RS) RO ; Else, get address of head of queue 
63 0€ 1544 $38 108: INSQUE (R3),TROY ; Insert request in queue 
99A 696 LOAD_PORT_ALT: ; Entry from PORT_INTR routine, order 
99A 169 ; of entries on port queue is preserved 
3 $ AS DO O99A 028 MOVL uses CRB(RS) ,R4 ; Get CRB address 
4 BF 0 MOVL acresc INTD+VECSL_IDB(R4S ,R4 ; Get CSR address 
9 ? 0 BITW #XM_1_A_RQI, (R4) : Is a request already pending ? 
6 1 BNEQ ; Br if yes - leave 
§ TIMEWAIT # #XM_1_M_RDI,(R4) WL EOL ; Wait for controller to release port 
3D 50 9 cc BLBC R ; Br if failure - wait for an interrupt 
64 0 CF MOV #XA_1_M_RQI,(R4) ; Request input port 
02 A4 80 4 ° 5 BITW #XM_O_M_RDO,XM_O_CSR(R4); Is gqntrot out pending? 


BNEQ ; Br yes > request interrupt 
TIMEWAIT #5, @XM_1_M_RDI,(R4),W ; Wait for controller to come read 
BLBS RO, 208 ; Br if success = port now available 


; Port is not currently available - request an interrupt and wait 
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; until the interrupt occurs. 


64 0060 8F A Ss: BISW #XM_I_M_RQI'XM_I_M_IEI,(R4) ; Request interrupt 
64 0060 BF A BISW «= #XMTI“MTROIL'XM~I“M-IEI,(R4) ; gain) 
0 Be 10$: eat RO ~ ; Set failure to load 


: Port is available - load the buffer address and size into the port 


20$:  REMQUE @UCBSQ_XM_PORT(RS),R3 =; Get first entry on port queue 
BVS INPUT_BONE : Br if none, assume interrupt processed 
3; the request. 


53 O0A0 D5 0 
ee 


LOAD_PORT_AVAIL: Load pect - it's available 


OA OA a3 4 care IRPSB_TYPE(R3) , S*#DYNSC ~inp?: $ by ffer a transmit? 
17. ~+OA a 3 ‘ee RPS$B_TYPE(R3) ,S*#DYNSC wer nF 4. ‘Cotter a receive buffer? 
BUG_CHECK NOBUFPCKT,FATAL : Else, Yatal error 


: Load transmit 
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OOAC DS. 63 «OE ios: INSQUE (R3),@UCBSQ_XM_XMT a ty hd : Store on pending queue 
04 AG6 «638 AS) OBO MOVW IRPSL feDIACRS) XM~ PORT ( : Load buffer address and 
06 a4 = SA AS—sO«BO MOVW IRPSL-MEDIA+2(R3) ,RM_ PORT* (RS) - character count 
00000000'GF  O00000FF BF C1 ADDL3 #255, G*EXESGL Nast I Mr- ; Set 255 second timer 
6C AS UCBSL_DUETIM 
03 AB OA4 BISW #ucBsA 8 YH eat INT,- ; Enable timer 
64 AS OAS4 YeSSu_STS(RS) 
12 11 OA&6 BRB 0$ 3 
0A48 ; 
gate : Load receive 
00B4 DS. 63)—COOE:SsCOAGB 20$:  INSQUE (R3),@UCBSQ_XM_RCV_PND+4(R5) —;_ Store on pending queue 
AS OC AS BO OA4D MOVW RCV ¥ BAe RD XM_PoRT(R4) : Load buffer address and 
06 AS =«OCOE AS)~—s«BO. COA MOVW  RCVTL“BACC+2(R$) , RM_PORT+2(R4) |; character count 
A8 a4 BISW PXMTITR REVS (RQ) ; Set receive buffer type 
OASA 30$: DSBINT ; Disable all interrupts 
05 64 AS 05 €0 OA6 BBS aXRe POWER, UCBSW_STS(R5),40$ ; Br if powerfailed - forget it 
64 0060 8F AA OA6 BICW 1_A_ROI!XM_I_M~ “TEI, (R4S ; Release port, start transfer 
nee 40$: ENBINT 3; Re-enable interrupts 
A6D INPUT _DONE : 
50 36(01 a “ 4 + i S*#SS$_NORMAL ,RO ; Set success loading 
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v4 1738 -SBTTL PORT_INTR = Input port ready interrupt service routine 
ar 1761 ; PORT_INTR = Input port ready interrupt service routine 
v4 1788 3; Functional description: 
ya 1765 ; This interrupt occurs when the port is ready for the driver to pass a 
QA71 1706 ; buffer address and buffer size to the controller. Prior to this, a request 
QA71 1767 ; for the port was made to LOAD_PORT, but the port wasn't available in a 
QA71 1768 ; short enough amount of time. 
OA71 179? : 
par} 1770 ; 
A71 1771 ; Inputs: 
0A71 aC; : 
OA71 1773; O(SP) = Address of the unit IDB address 
QA71 1774; 4(SP) = 20(SP) = R1 = R4 
part 1775 ; 
A71 1226 3; Outputs: 
QA71 1777 ; 
OA71 1778; A receive or transmit is loaded, a check is made for any other 
QOA71 1779; buffers waiting to be loaded and if there are, another request for 
part 1780 3 the port is made. Finally, the interrupt is dismissed. 
0A71 178 3 If the interrupt was unexpected, that is no receives or transmits were 
pari 178? : pending, the controller is assumed to be in error and is shutdown. 
0A71 1785 PORT_INTR: : Input port ready interrupt | 
54. 9E DO OA71 1786 MOVL a(SP)+,R4 ; Get IDB address 
55 18 AS DO OA7& 1787 MOVL IDBSL_UCBLST(R4) ,R5 ; Get UCB address 
E1 OA78 1788 BBC #XMSV_STS_ACTIVE,- ; Exit if controller not active 
25 44 A OA7A 1789 UCBSL ~DEVBEPEND(RS) , INTEXIT 
4 dO OA7D 1790 MOVL (R4) ,R4 ; Get CSR address 
50 OOA0 8F 64 AB OA80D 1791 BICWS (R4&),#XM_I_M_RDI!XM_I_M_RQI,RO ; Is a request really pending? 
1A 12 nt 1236 BNEQ INTEXIT ; Br if net - exit 
53 0OOA0 DS’ OF SaBs 1794 REMQUE @UCB$Q_XM_PORT(RS) ,R3 ; Get a waiting buffer/IRP | 
1D 1D OA8D 1795 BVS N : If VS then none - error 
FF84 =. 30 ry 1798 BSBw LOAD_PORT_AVAIL 3 Load and free the port | 
50 OOA0 C5’ 9E OAs8 1798 10$: MOVAB UCBSQ_XM_PORT(RS),RO ; Get address of port queue 
60 50 D1 OA9? 1799 CMPL RO, (RO) ; Any more on queue? 
06 13 OA9A 1900 BEQL INTEXIT ; Br if no - exit interrupt 
rece 30 OA9C 1801 BSBW LOAD_PORT_ALT 3; Attempt to load the port 
FO 5 E8 art } 3 BLBS RO,10$ ; Try another 
AA2 1804 ; Exit interrupt 
AA2 1805 ; 
AAe 1 Bg INTEXIT: ; Exit interrupt 
50 8& 7D QAA2 180 MOV (SP)+,RO ; Restore registers 
3 HH 7D OQAA 1 4 MOVQ (SP)+,R2 
4 E 7D QAAB 180 MOVQ (SP)+,R4 
02 _ : + REI 
AAC 1 \ 3; An unexpected interrupt occured. Since there is no NOP function to initiate, 
AAC 1815 ; the controller must be shutdown. 
AAC 1814 ; 
AAC 1815 INTERR: : 
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BSBW TIMEOUT ; Fake a timeout error 
BRB INTEXIT 5 
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CONTROL_INTR = Control out interrupt service routine 

FUNCTIONAL DESCRIPTION: 


This routine is the control out interupt service routine. These interrupts 
signal receive or transmit buffer done or errors. 


INPUTS: 
O(SP) = }p6 address 
4(SP) = 20(SP) = R1-R5 
OUTPUTS: 


IMPLICIT OUTPUTS: 


If the interrupt signals an error, 
ed port is held and the fork process is scheduled to process 
e error. 


If the interrupt signals receive done, 
the port is freed; 
the fork process is scheduled to complete any pending 1/0; 
the next receive is started if possible. 


If the interrupt signals transmit done, 
the port is freed; 
the fork process is scheduled to complete the transmit 1/0. 


CONTROL_INTR: Control out interrupt 
MOVL a(SP)+,R4 Get IDB address 
MOVL IDBSL_UCBLST(R4) ,R5 Get UCB address 
MOVL R4), Get CSR address 
BBC #XMSV_STS_ACTIVE,- Br if not active 
UCBSL DEVDEPEND(R5) , INTE 
MOV XM_O_CSR(R2),R4 


Get output CSR, 
shift, an 

get input CSR 

et port high word, 
8 and 


¢ R 
MOVW xM_f CSR(R2),R4 
MOVW = XM PORT* (R25 ,R3 


ASHL 1 hift, 
MOVW XM_PORT(R2) ,R3 get port low word 
BBC #XP_O_V_TYPE+16,R4,10$ r if not error 


Pete Se Se Se Se Se Se Se HEse Se Ge Be Se 
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BSBB SCHED -F ORK 
INTEXTT 


#XM_O_M_RDO,XM_O_CSR(R2); Release output port 
BICL #*xT0000000,R3 ; Clear BA16 and BA17 from BA/CC 
; (not always correct anyway) 
BBC #XM_O_V_RCV+16,R4,40$ ; Br if transmit complete 
Receive completed. Get the next receive buffer and schedule the fork 
process. 


REMQUE @UCBSQ_XM_RCV_PND(RS),R2 ; Get oldest pending receive 
BVS INTERR ; Error if none 
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OC A2 33 B1 OAF7 1877 CMPW R3,RCV_L_BACC(R2) ; Buffer address match? 
13 OAFB 1 A: BEQL § : Br if yes - 0 
0080 C5 68 0 AFD 1879 20$:  INSQUE (R2),UCBSQ_XM_RCV_PND(RSS ; Requeue the receive buffer 
A 1 B8 : , BRB NTERR ; Shutdown the controller 
50 OBA 9A 0B04 1 ¢ 30$: MOVZBL RCV_B_MAPSLOT(R2) ,RO : ge sopping slot number used 
€F 0108 cS) «50S ES) «(B08 1 "8CC —s- RO, OCBSB_XM_RCV_MAP(RS),20$; Mark the slot free 
OC A2 5 dO +f 1884 MUVL R3,RCV_L_BACC(R2) ; Save byte count 
FO iF 5 BRB 106s ; 
14 «1 ; 3; Transmit completed. Get the next transmit 1/0 packet and schedule fork 
Bit ! 3 ; process to complete the 1/0 request. 
52. 00A8 DS OF 0B14 1890 dos: REMQUE @UCBSQ_XM_XMT_PND(R5),R2 ; Get pending transmit 1/0 packet 
91 1D 0B19 1891 BVS INTERR ; Error if none 
04 12 OBIB 1 3 BNEQ 45$ ; Br if not Last one 
03 AA OB1D 189 BICW #UCBSM Pet yeeen aR. 3: Disable timer 
64 AS QOB1F 1894 UCBSW_STS(R5) 
38 A2 3 sf 8 d 344 45$ ayy R3, IRPSL_MEDIA(R2) g Buf fer address match? 
. r ee 
QOAB CS 62 QE 0827 1897 50S: —INSGUE (R2) ,UCBSO_XM_XMT_PND(RSS ;. Re ueue the 1/0 packet 
FF7D «31 08 C 1898 BRW INTERR ; Shutdown the controller 
38 A2 «6553)—iéOO - F Ise 60$: MOVL R3, 1RPS$L_IOST1(R2) ; Save byte count 
OOBC D5 Ge OE §B33 1306 100$: INSQUE (R2),@UCBSQ_XM_POST+4(R5) ; Queue receive buffer or 1/0 packet 
03 12 0838 190 BNEQ 11 ; br if not first entry 
OO1E 30 tts 130e BSBW SCHED_FORK 3; Schedule fork process 
0B3D 1906 : An input buffer may be waiting to be loaded, but for some reason, the 
0B3D 1907 ; port was unable to be requested. Check for this condition and if occuring, 
OB3D 1908 ; attempt to load the port. Also, since we may have freed-up a receive slot, 
ee 13 ; it may be possible to load another receive. 
1054 05 €0 083D 1911 1108: Bs #XM_I_V_RQI,R4,120$ ; Br if input request already pending 
50 OOA0 CS 9E 0B41 at 115$: MOVAB UCBSQ-xXA_PORT(RS) RO :; Get address of input request queue 
60 50 D1 0846 191 CMPL RO, (RO) ; Anything on queue? 
06 13 0849 1914 BEQL 120$ ; Br if no = start receives 
FE4C «30 0848 1915 BSBW LOAp PORT_ALT ; Load and free the port 
FO 50—s«éEB peer 1916 BLBS RO, 1T5 ; Br if success - try for another 
03 54 ig 1 51 1917 1208: BBC #XM_O_V_RCV+16,R4,1350$ ; Br if last transfer wasn't receive 
FDD 0 0855 1918 BSBW START RECEIVE ; Start any receives 
FF47 1 828 +44 130$: BRW INTEXTT : Exit 
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18 68 AS 
55 DD 
04 10 
55 8—D0 
05 
55 00000138 8F CO 
B4°AF 8 69F 
00000000'GF 17 
0554 #1 1 
0148 C5 38 7 
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~SBTTL SCHED FORK = Schedule the fork process 


++ 
SCHED_FORK = Schedule the fork process 


Functional description: 


This routine is called to schedule the error and 1/0 completion fork process. 
The last controller port and CSR values are saved for examination. 
If the process's execution is already pending, the last port and CSR values 


; are just saved. 


; Inputs: 
R3 = Last port values 
R4 = Last CSR values 
RS = UCB address 


IPL = DIPL or higher 


; Outputs: 


R5 = UCB address 
UCBSL_XM bereer ees = 


UCBSL_XM_LSTCSR(R 
CHED_FORK: 

BBSS #UCBSV_XM_FORK_PEND 

UCBSW_BEVSTS(R5),10 

PUSHL R5 

BSBB 5$ 

POPL R5 

RSB 

ADOL #UCBSB_XM_FKB,RS 

PUSHAB B*FORK PROC 

JMP G*EXESFORK 


10$: BBC #XM_O_V_TYPE+1 
MOVQ R3,0CBSC_xmM_LS 
208: RSB 


Last port values 
Last CSR values 


3; Schedule fork process for execution 
; Br if fork process scheduling pending 


; Save R5 

; Setup fork process 
; Restore R 

; Return to caller 


; Point to fork block 
; Set address of fork process 
; Schedule FORK and return to caller 


; Br if not an error to handle 
; Save last port and CSR values 


| 
| 
| 
| 
| 
| 
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j 
: 1363 . -SBTTL FORK_PROC = Error and 1/0 completion fork process 
1987 3; FORK_PROC = Error and 1/0 completion fork process | 
Py | 
1968 3; Functional description: | 
B 1394 3; This routine is called as a fork process to handle errors and 1/0 
+3 1326 3; completions. 
1973 ; 
+3 1974 ; Inputs: 
1975 ; 
+3 1376 : R3 = Last port os prem 
1977 ; R4 = Last CSR value 
0B82 1978; R5 = UCB address at * FORK BLOCK 
OB82 1979; 
p88 1980 ; IPL = FIPL 
0B 1981 ; 
0B82 19 § 3; Outputs: 
0B82 1983; 
OB82 1984 ; RS preserved. 
0B82 1985 ;-- 
017C* 0B82 1986 -WORD TIMEOUT-. 3; Offset to timeout routine 
0884 1987 FORK_PROC: : Error/completion fork proce 
0B84 1988 CLRBIT #UCBSV_XM_FORK_PEND,- Clear fork process schedul ing pending 
0B84 1989 UCBSW_ DBE VSTS-UCBSB_ XM_F FKACRS) 
55 00000138 8F C2 OBBA 1990 SUBL HUCESE B,R : Point to UCB 
03 54 10 Ei 0891 1991 BBC 0.9 natPe* io. R4,20$ : Br if not error 
0180 0 $833 1338 BSBW DEVICE. ERR 3; Handle the error 
9 a 3; Complete any transmits or receives 
52 00B8 DS OF 0898 1996 30S:  REMQUE aycesa_ XM_POST(R5),R2  ; Get next completed block 
01 1C OB9D 1997 BVC ; Or if one 
0S OB9F 1998 RSB se, return 
OA OA ag 91 OBAO 1999 23S: CMPB jpess.. TYPE (R2) , S*#DYNSC inp: Was it a transmit 1/0? 
4 13 OBA4& 2000 BEQL Br if yes - complete it 
17 OA A2 = 91 zone 001 CMPB RPS$B_TYPE(R2) ,S*#DYNSC wher ; Was a" a receive? 
04 «13 Oe EQ $ r if yes 
peat Ohe BUG_CHECK NOBUFPCKT, FATAL : Else, fatal error 
rtd 005 : Receive completed - if there is a pending receive 1/0 request, complete it. 
p88) 43 3; Otherwise, queue the buffer and, if enabled, send a message to mailbox. 
51 O€ A2 3C 0880 008 24$: MOVZWL RCV te accee (ne) mI 3; Get the byte count 
BBS ADDLC =R1,0CB YTCNT(RS) : $ Update byte count 
0128 C5 6 BCO 10 INCL sic8 feb REUMSCENT (RS) : Renee message count 
53 0098 D5 F OQBC4 11 REMQUE G_XmM_RCV POS AE agave waiting receive 1/0 request 
04 1D OBC9 ois BVS none - queue for later 
6B 10 BCB 1 BSBB Finisw_ RCV_IO oo. finish the 1/0 
co 171 : p 1% BRB 
OOCC D5 $¢ OE BCF 16 25$: INSQUE (82). @UCBSQ_XM_RCV eatin a Else, paws message buffer 
4 D4 OBD4 1 CLRL : Set no mailbo 
0 EO 06 18 BBS oa XM_NOTIF,= : Br if alreacy ‘notified 
04 68 A 1 W BEVSTS(R55 308 
54 00°8F 2A BDB 30 MOVZBL DATAVL,R4 : Set message type 
0008 30 OBDF 1 308: BSB” POR sOSeR’ : Poke the user | 
| 
| 
| 
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8 3 €9 E ¢ BLBC RO,408 3: If low clear then not sent 
0800 8F AB OBE BISW #uCBSM_XM_NOTIF,- : Set notified | 
68 AS E 4 yCBSH_DEVSTS(R5S : 
AB 11 = OBEB 5 40$ BRB $ 3 
a, 
ED 8 ; Transmit completed - deallocate the map registers and complete the 1/0 
ED ; request. If there is a transmit request waiting for mapping resources, 
4 ? 3 restart it. 
4s 0 OBED : 50s: R2,R3 ; Get 1/0 packet address 
51° 32 A C OBFO MOVZWL IRPSW_BCNT(R3),R1 ; Get byte count 
FG 4 R1,UCBSL_XMTBYTCNT(RS) : Update byte count 
ad: CS 06 OC00 5 UCBSL_XMTMSGCNT (RS) ; Update message count 
51 CAS) 9A 0604 20 § MOVZBL IRPSL_MEDIA+4(R3),R1 ; Get mapping slot number used 
Bebe 0 CLRBIT R XM_XMT_MAP(RS) ; Clear in use fla 
52 246 AS 00 O0CO 038 UCBSL_CRB(R5) ,R2 : Get CRB address 
34 A2 OOEC C541 00 OCI 039 MOVL UCBSL_XM_XMT_MAP(RS)CR1],- ; Setup map register data 
0C19 2040 CRBSL~INTD+VECSW MAPREG (R2) 
OOEC €541 01 CE 0C19 2041 MNEGL #1,UCBSL_XM_XMT_MAP(RS)CR1] ; Set mapping data not allocated 
QCIF 2048 RELMPR ; Release the map registers 
50 32 A3 B80 O0C25 204 MOVW IRPS$W_BCNT(R3),RO ; Get count of bytes transmitted 
50 50 10 78 OQC29 2044 ASHL lj ° 3; Shift into place 
50 01 BO OC2D 2045 MOVW  $*#SS$°NORMAL,RO > Set success 
3E 10 oc3e O78 BSBB 10_DONE ; Post the 1/0 
F4DE 30 Oc32 048 BSBW XMT_START_ALT ; Continue any waiting requests 
FF60 836 331 oc 2 64 70$: BRW 208 3 


xe 
Sy 
Ic 
Ic 
Ic 
Ic 
IC 
IC 
IC 
IC 
IC 
IF 
If 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
If 
IF 
IR 
Jl 
Jl 
LC 
LC 
Lc 
LS 
MA 
MA 
MA 
MA 
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Me 
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mC 
mC 
MC 
MC 
Be 
mC 
ms 
ms 
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Ne 
Ne 
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: 38 ae -SBTTL FINISH _RCV_IO - Finish receive I/0 processing | 
: ¢ 3 FINISH_RCV_IO - Finish receive I/0 processing 
: 36 3 FUNCTIONAL DESCRIPTION: 
C 28 3; This routine completes a receive operation that has been matched with a 
C 59 ; message block. After the receive has been completed the message free list is 
: + : filled and a receive is started if needed. 
¢ $6 : INPUTS: 
C o7 5 Re = message buffer address 
C 65; R35 = 1/0 packet address 
bc 396 $ RS = UCB address 
C 067 ; 
oc 68 ; IPL = FIPL 
C 3 3 
C 0 ; OUTPUTS: 
C 071 ; 
0c o7¢ : RS = UCB address 
0c 073 ; 
! : 14 3 The request is completed via 1/0 post. 
0C38 076 FINISH_RCV_IO: : Finish receive 1/0 request 
2c ad. dO oc3e 07 MOUL R2, IRP$L_SVAPTE(R3) 3; Save block address 
62 48 A 9E OC3C 2078 MOVAB = RCV_T_DATA(R2) , (R2) ; Set address of received data 
04 A2 SBA dO +44 079 MOVL IRPSL-MEDIA(R3) ,4(R2) ; Set address of user buffer 
42 a5 AO OC4 080 ADDW UCB$W_DEVBUFSIZ(R5),- ; Adjust receive buffer quota 
010C C5 0C48 081 UCBSW_XM_QUOTA(RS) é 
51 OF A2 B80 0C4B 4 MOVW RCV_L-BACC+2(R2) ,R1 3; Get size of transfer 
32 a3. «51—s«B1SCOOC4F «208 R1, IRPSW_BCNT(R3) : Request larger than actual? 
04 1B OC53 2084 BLEQU :; Br if no 
3} 32 Ad 0 3C)Ss«0C55 tH MOVZWL IRPS$W_BCNT(R3),R1 : Set size to minimum of two sizes 
203 51 80 0C59 2086 208: MOVW  R1,I1RP$W_BCNT(R3) : Set size to transfer 
50 51 10 78 o¢ob 087 ASHL #16,R1,RO0 : Set up status 
07 12 0C61 2088 BNEQ ; Br if success 
50 0054 8F B80 Bce3 089 MOVW #SS$_CTRLERR,RO ; Set data path error 
03 11 0C6 090 BRB 3 3 
50 2 4 C6A 2091 258: MOVW S*#SS$_NORMAL ,RO ; Set success : 
FC56 £60 B36 0$: BSBW FILLRCULIST 3; Load another receive 
cf 34 : Complete a transfer 1/0 request 
C7 %6 [0_DONE : : Complete a transfer 1/0 request 
38 AS OS DO 0C7 9 MOVL RO, IRP$L_IOST1(R3) 3; Set tatus and size 
3C A 44 A DO 0C74 84 MOVL UCBSL DEVDEPEND(R5) , IRPSL JOST3 AR ) ; Set other info 
13 2A AH 4 E1 C79 9 BBC oho 0_DIAGBUF ,IRP$W_STS(R35),10$ ; Br if no diagnostic buffer 
50 4C 8 8 3 cre 100 ADDL3 #8, a@IRP$L_DIAGBUF(R3),RO ; Address buffer past start time 
90000000" GF D OC 101 OVO  G*EXESGQ SYSTIME,(RO)+ ; Insert stop time 
8 008 3 3 C8A 21 ¢ MOVZWL UCBSW_ERRCNT(RS),(RO)*+ =; Insert error counter | 
S..e CBF 21 S GDUAP ; Dump registers 
00000000 ' GF 1 4) ' ¢ 10$: JMP G*COMSPOST ; Post the I/0 and return 
| 
| 
| 
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-SBTTL REGDUMP = Error log and diagnostics register dump 


+ 
REGDUMP = Error log and diagnostics register dump routine 


— 
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Functional description: 


This routine is used to return the controller error counters if a diagnostic 
buffer was specified for an 1/0 request. 


; Inputs: 


RO = Diagnostic buffer address 
R5 = UCB address 


R5 = UCB address 
RO-R1 destroyed. 
GDUMP : ; Dump registers and counters 


: Outputs: 
RE 
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08 MOVZBL #8,(RO)+ 3; Insert number Longwords returned 
cS) DO MOVL  UCBSL_XM_LSTCSR(R5),(RO)+ ; Insert Last CSR value 
cS 00 MOVL UCBSL_XM_LSTPRT(R5),(RO)+ ; Insert last port value 
80 7C CLRQ (RO)+ ; Zero error counters 
0B El BBC #XM$V_STS_ACTIVE,- ; Br if not active 
AS UCBSL_DEVBEPEND (R5) 10$ ; 
cS oo L ___ UCBSL=XM_BASETAB(R5S.R1 ; Get address of base table 
ASSUME ycpse xe DEVCNT EQ 8 
Al 7D va (R1)7=8TRO) ; Return error counters 
80 7¢ 8B 10$: CLRQ (RO)+ H 
60 7C 87 CLRQ (RO) : 
05 B RSB 
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Clear other counters 
| 
| 


Se 4 
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v04-000 POKE_USER = Poke user process on attenti 5-SEP-1984 00:20:4 DRIVER. SRCIJXMDRIVER.MAR; 1 (23) | 
‘eA 138 a -SBTTL POKE_USER = Poke user process on attention condition | 
CBA 144 : POKE_USER = Poke user process on attention condition | 
CBA 146 > Functional description: 
CBA 138 : This routine is used when data is avaliable or a controller error occurs. 
CBA 2149 ; the action is to deliver any attention AST's and send a message to the 
‘ee 120 3 associated mailbox. 
CBA : : Inputs: | 
CBA 2154 : R4 = Mailbox message type 
CBA 2155; = Zero if none 
oe : § : RS = UCB address 
eA 136 : Outputs: 
CBA 2160 : RO = Low bit clear only if user is not notified 
Bree 19) 3 RS = UCB address 
CBA 168 POKE_USER: ; Poke user process | 
7E 04 OCBA 2164 CLRL (SP) ; Assume failure | 
54 dD OCBC 2165 PUSHL R ; Save message type 
51 0114 C5 aE cB 166 MOVAB UCBSL_XM_AST(R5),R1 ; Get AST Listhead 
61 D cc 16 TSTL (R1) : Empty ? 
18 13 OCC 168 BEQL 17$ : If so, branch 
04 AE D6 OCC 4 INCL 4(SP) 3; Indicate success 
54 51 DO OCCA 2170 MOVL R1,R4 ; Copy Listhead address 
5161 b9 OCCD 2171 108: movi  (RI),RI : Get address of next block | 
07~— 1 cD 17 BEQL 15$ :; Br if none - done 
44 AS 00 OCD 17 MOVL UCBSL_DEVDEPEND(RS).- ; Save status as new AST parameter 
Hy Be BA oe | 
00000000"GF 16 144 176 15$: JSB G*COMSDELATTNAST ; Deliver the AST's 
54 BEDO CDF 128 17$: POPL—sR& : Get mailbox message type | 
1%6 1 CE2 217 BEQL 30$ ; Br if none = no mailbox message 
53 60 AS 0? CE4 2180 MOVL Upset ANB CRS) RS ; Get mailbox message address 
eS CEB 2181 BEQL $ : Br none 
OB 44 AS 04 i CEA 1 § BBC #XMSV_CHR_MBX UCBSL_DEVDEPEND(RS) , 3 $ ; Br if disabled 
00000000 ' GF 8 CEF 21 JSB GrEXESSNDEVSG ; Send the mailbox message 
05 8 é«C re 184 LBC (SP)+,35$ : If AST failed, keep RO 
9} 0 CF 185 PUSHL # ; Else force success 
0 89 re ; $ aes: mt : Set status 
OCFE 2188 ~~ . 
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~SBTTL TIMEOUT = Transmit timeout handler 
TIMEOUT = Transmit timeout handler 
Functional description: 


0 V04-00 Page 48 


This routine is called by the re'er clock routine to handle a eregg-eut 


OOOOooooooo0o00 s-— 
WN OOONOAOUS Ww $= 


unit. Transmits are the only 1/0 that is timed for this device. 
has timed-out, the error handling a process is scheduled. 
Inputs: 
RS = UCB address 

; Outputs: 

; RS is preserved. 

fIMEOUT: : Timeout handler 

—1 BBC #XM$v_STS_ACTI Br if controller inactive 


14 44 nS 2gesc DEDDEPEND (8S) «2 205" 
wiaR 


2 3 I IQOOO OOO 
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53 (01 18 78 ASHL — VT See timeout $ , flag 
0464 a5 05 €1 BBC wees q Pow minty “STS«RS 10$ =; Br i power fail 
SETBIT aun £9 PONE 16,R3 ~y hy senarhelt flag too 
en) a | re «| ASHL &#XM"O"V"TYPE+16,41,R4 =: Set error fl Lag 
FESS 30 Bseu SCHED_FORK : Schedule the fork process 


TXMDRIVER. MAR; 1 (24). 
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R = Device error handler 
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SEP=1 
‘ ~SBTTL DEVICE_ERROR = Device error handler 
DEVICE_ERROR = Device error handler 

Functional description: 


DRIVER. SRCIXMD 


This procedure is called to handle device errors. If the error is non-fatal, 


the action is simply to, if enabled 


send a mailbox message to the device 


owner. If the error is fatal, the fatal error status is saved away in 
the UCB, if enabled, a mailbox message is sent to the device owner, and the 


device is shutdown. 
Inputs: 
R3 = Last port values 


RG = Last CSR values 
RS = UCB address 


IPL = FIPL 
Outputs: 
RS preserved. 
BEVICE_ERROR: ; Device error handler 
MOVL UCBSL_CRB(RS),RO ; Get CRB address 
MOVL  a@CRBSC_INTD+VECSL_1DB(ROS,RO ; Get CSR address 
BICW #XM_O_A_RDO,XM_O_CSR(RO) ; Free the port 
ASHL #-16,R3°R ; Get last port error value 
INCW UCBSW_ERRCNT(RS) :; Increment error count 
BITW #<XM_E_A_PROCERR!- ; Was error a fatal error? 
XM E~M~NONE XMEM! = 
XM"E"M“START!= 
XM_E_M_LOST!= 
XM_E_M_POWER! = 
XM"E"M" TIMEOUT! 
XM-E_M_MOP>,R3 
BNEQ eos ; Or if yes 
B1SB R5,UCBSL_DEVDEPEND+1(R5); Save error status 
MOVZBL #MSG$_XM"ATTN,RG ; Set mailbox message 
BRw POKE_OSER ; If enabled, send ma 


3; and return 
; Fatal error - device must be shutdown 


20$: BICW  #XMSM_STS_ACTIVE,- ; Clear active flag 
UCBSL _DEVDEPEND(RS) ; 


ASSUME < MOP!XM_E_M_LOST!KM_E_M_START> LE <*XFF> 
BICBS onceah. fer ; Save MOP, lost, and start flags 
XM“E“M"START>,R3,- ; 
UCBSL_DEVDEPEND+2 RSs ; 
BBS #xm_€ win R3,408 ; 
ASSUME CAMERTERR FA ALa-16> LE < 
B1SB #XMSM_ERR 4b Sed Dh ; Set fatal error flag 
R4 : Set mailbox message type 


type 
ilbox message 


Br if procedure error - don't notify 
“XFF> 


DMC11/DMR11 Device Setyer ’ 
ROR = Device error handler 


i 


40$: 


BSBW 
BLBS 
BISwW 


POKE USER 


suCBsn XM_LOST 
CBs $y DEVSTS( 8 


1 al 
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; it s yeeetes. sqnd mailbox message 
f successful 
iss. remember lost error 


; Shutdown device and return 


nme 
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Yen O00 SHUTDOWN = Shut down device aise 98:38:03 YORIVER. SREIKMDRIVER.MAR; 1 . 36), vO: 
D67 3 .SBTTL SHUTDOWN = Shut down device 
434 : or ~SBTTL CANCEL = Cancel I/0 and Deassign Routine 
D67 § : SHUTDOWN = Shut down device 
404 ; CANCEL = Cancel 1/0 and Deassign Routine 
484 : : Functional description: 
D67 91 : This routine is used to shut down the device unit as a result of a 
D67 38 3; SETMODE and SHUTDOWN request, a SCANCEL, or a fatal error. The action is 
D67 93 ; to halt the device, deallocate the basetable, deallocate receive 
D67 94 ; buffers, deallocate all map registers, abort all transmit and receive 
484 33 :; 1/0 requests, and restore the quotas to the starting process. 
Gb67 $597 | Inputs: 
0D67 99 ; R5 = UCB address 
44 BY 3 R8 = Cancel reason code (zero if $CANCEL else S$DASSGN) 
Boer sane genes | 
0067 04 ; Outputs: 
0D67 06 : RO-R3 are destroyed. 
Ope? 5308 | 
0D67 $43 CANCEL: 3; Cancel 1/0 routine 
5c aS 53 0D67 10 TSTwW UCBSW_REFC(RS) ; Is this the last SDASSGN or $CANCEL? 
m3 443 1 BEQL 100$ ; Br if yes 
Op6¢ 1§ ; NOT the Last SCANCEL or Last $DASSGN 
48: 12 : Perform only a selective SCANCEL (same for S$DASSGN) | 
E1 OD6C i$ “ BBC #UCBSV_XM_INITED,- ; Br if unit NOT inited 
2B 68 AS Boge 8 UCBSW_BeEvSTS(R5),10$ : | 
0071 Y : Flush all attention ASTs for this CHANNEL 
00D4 8F 6B 0071 § : PUSHR #*M<R2,R4,R6,R7> ; Save registers | 
57 he CS 9E& OD75 MOVAB UCBSL_XM_AST(RS) .R7 ; Get address of AST Listhead 
6 52 3€ OD7A 4 MOVZWL 3; Get channel number 
00000000'GF 16 007 5 JSB_—- G*COMSFLUSHATTNS ; Flush all AST for this channel | 
0004 8F BA : § ; POPR #*M<R2,R4,R6,R7> ; Restore registers | 
: 4 8 : Complete all associated receive IRPs 
DD 0D87 0° PUSHL 6 > Save R6 
56 0098 35 D89 1 MOVAB UCBSQ_XM_RCV_REQ(RS),R6 ; Get address of receive IRPs 
8 D ‘ § BSBW 00 ; Do the cance 
56 0090 C 3 D MOVAB UCBS$Q _XM_XMT_REQ(RS).R6 ; Get address of XMIT IRPs 
0148 D9 4 BSBW =©DO_CANCEL ; Do the cancel 
56 Be? v9 5 POPL 3; Restore R6 
0 D9C § 10$: RSB ; Return to caller 
D9 
D9D § > Last SCANCEL or Last SDASSGN request 
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XMDRIVER = VAX/VMS DMC11/DMR11 Device Driver 16-S 4 :0 AX/VMS M v04-00 Page 52 | 
voe O00 CANCEL = Cancel 1/0 and Deassign Routine SSE 71382 60: 38: 03 EDRIVER.SR SRC SXMD DRIVER.MAR; 1 sz 38) | 


D9D 40 
51 01 9A 0D9D 5341 1008:  MovzBL #1,R1 ; Assume Last SDASSGN system service 
DA tg 3; modem is ciseres only on last $SDASSGN 
58 01 91 DA 4 CMPB #CANSC_DASSGN,R8 : Is this a $SDASSGN? 
02 13 BA re BEQL SHUTDOQN_ALT : Br if yes, shutdown the modem 
DA rt] : 
~ r 3; Shutdown request on unit 
ODA rk SHUTDOWN: : Shut down unit 
51 D4 +! 29 CLRL Ro ; Do not shutdown the modem 
DA? 5 SHUTDOWN ALT: 
04 €1 ODA7 5 Bec #UCBSV_ONLINE,=- ; Br if not online 
OB 64 a DAY 54 ante STS(R5) 10$ 3 
0 EO ODAC 55 BBS #ucBs7_x » NITED. - ; Br if UCB initialized 
07 68 AS DAE 2$ UCBSW BEVSTSiR »,15$ 3 
03 51 3 0DB1 5 BLBC R ; Br if not to clear DTR 
0161 30 OpB4 2358 BSBW DISABLE_MODEM : Else, disable the modem 
05 0087 59 108: RSB 3; Exit 
0DB88 60 ; 
Ht @) 3 Clear device and device status 
00D0 8F BB ODB8 $§ iss: PUSHR #*M<R4,R6,R7> :; Save registers 
54 24 45 DO ODBC 2364 MOVL UCBSL_ ERBIRS) RG : Get CRB address 
ODCO 65 ASSUME TOBSL EQ 
54 2C B& D0 ODCO 08 MOVL cRBSC suroayecse. IDB(R4), R4 ; Get CSR address 
ODC4 6 DSBINT Ucose pir rin s Synch access to status flags 
64 4000 8F B80 oo ce 68 MOVW a0 : Master clear the unit 
64 AS 23 AA ODD 69 BICW fUCBS cA” Int! iUees M_TIM!= ; Reset device status flags 
ODD4 2370 UCBSM "POWER yyeesa. STS insi 
0800 8F AA ODDS 2371 BICW  #XMSMISTS ACTIVE ; heset active flag 
44 AS ODD8 ie UCBSL “DEVDEPEND (AS) ; 
AA A 7 BICW #*C<UCBSM LOSTERR! = ; Clear all but lost error bit, 
74 uc Hoe “FORK despa and fork process pending 
75 UCBSW DEVSTSTR 
4 BLBC R1,178 : Br if not to clear DTR 
D 7 BSBW DISABLE_MODEM : Disable the modem 
ODE6 17$: ENBINT : Restore IPL 
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: Deallocate all the attention AST control blocks 


208: MOVAB UCBsl at XM_AST(RS) ,R7 Get address of AST jethead 
MOVL paytoing. in the List 
r 
Force channel match 
Get process index 
Get PCB address vector address 


BEQL 
MOVZWL ACBSL SEASTS12eR0) Rt 
ee. acest. KAST#12(RO) 
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54 if MOVL (R4)C “hee Get PCB address 
00000000 ' GF JSB 3 COMSFLUSHATINS Flush AST 
BRB Continue until all flushed 


; ; Release the base table map registers, save the error counters, and 
: deallocate the base table. 


hes MOVL  UCBSL_CRB(RS) .R4 : Get CRB address 
MOVL UCBSL-XM _BASEMAP(RS), - 3; Set mapping info 
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34 AG  Woeseatabtel ert deena 
0B 19 9 BLSS 7 ; Br if none 
RELMPR ; Release the map registers 
o11c cS) —(O1séEB MNEGL #1,UCBSL_XM_BASEMAP(RS) ; Reset mapping info 
50 0118 3 0 27$ MOVL y BSL_XM_BASETAB(RS),RO ; Get address of base table 
§ 1 BEQL ; Br if none 
51 5 ees ADOL3) 3 #3,R0,R1 3; Set address of error counters 
5 34 he) MOVL #ute$t_XM_DEVCNT,R2 ; Set number of counters 
53 0130 9 MOVAB UCBSB_XM BEVCNT(RS),R3 ; Get address of saved counters 
83 1 8 28$: ADDB R1)4+,(R3)+ 3; Add counter to saved counter 
FA 52 sO#F SOBGTR R2,28$ + Loop through counters 
0118 CS) 4 CLRL UCBSL_XM_BASETAB(RS) ; Reset state to no table 
50 4 A0 3 MOVAB =BAS_T_DATA R : Reset pointer to start of block 
010c CS. 0100 BFA ADDW  #BASETAB SIZE, UCBSW_XM_QUOTA(RS); Restore quota 
00000000 ' GF 16 JSB G*COMSDRODEALMEM ; Deallocate the base table 
3; Release the receive and transmit buffer map registers 
57 D4 Sos:  CLRL AR? ; Init slot number 
ASSUME UCBSL_XM_RCV_MAP+<4*MAX_RCV> EQ UCBSL_XM_XMT_MAP 
56 0000 cS 9 MOVAB UCBSL_XM_RCV_MAP(R5) RO ; Get address of mapping slots 
34 AG «686)—CCiCiOD MOV (R6) +, CRBSL_INTD+VEC$W_MAPREG(R4) 3; Set mapping info 
OA 19 60$ ; Br if none allocated 
Release the map registers 


FC A6 «601—CséCCEE’ 
&6 57 OF F2 


MNEGL #1,-4(R6) 
60$:  CLRBIT R7,UCB$B_XM_RCV_MAP(RS) 
AOBLSS #MAX_RCVMAR_XMT,R7, 50S 


: Deallocate all receive buffers and abort all 1/0 requests 


Reset mapping info 
Clear mapping slot flag 
Loop through all mapping slots 
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56 0090 CS 9 $0s: MOVAB UCBS$Q_XM _QUEUVES(R5),.R6 ; Get address of first queue Listhead 
57, 08 ~=00 MOVL #UCBSC_XA_QUEUES,R7 ; Get number of queues 
50 0066 OF 95$: REMQUE @(R6),RO 3; Get next 1/0 packet/buffer 
29 = 1D BVS ; Br if none - queue empty 
OA OA Ao 1 CHB RPSB_TYPE(RO),S*#DYNSC_IRP ; Is it an I/O packet? 
;_8r yes 
17 OA AO 91 CMPB RPSB_TYPE(RO) ,S*#DYNSC_NET ; Is it a receive buffer? 
OF 13 BEQL ; Br if yee 
BUG_CHECK NOBUFPCKT, FATAL ; Else, fatal error 
53 650 0 97$: MOVL RO,R3 ; Set 1/0 packet address 
50 2c ¢ MOVZWL #SS$_ABORT,RO > Set 1/0 status 
FDDS BSBW 49 DONE ; Abort the 1/0 request 
OF 11 BRB 4 : 


D 
42 a3 Ad D 2444 1008: ADDW UCBSW_DEVBUFSIZ(R5),- ; Restore quota 
opnos C 4&& UCBSW_XM_QUOTA(RS) 3 
000 000"? 16 rr ise g, CONSDRUDEALER : Deallocate the receive buffer 
44 : 
56 98 co ret: 110$: ADDL e RO ; Increment queue Listhead pointer 
cB F 450 SOBGTR R7,95$ ; Loop through queues 
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451; 
2 § 3; Restore the buffered 1/0 quota to the starter 


gh 
moni yee = VAX/VMS DMC11/DMR11 Device Driver 1ereee- 1384 0: $6: 03 AX/VMS Macro v04-00 ge 3 
v04- CANCEL = Cancel 1/0 and Deassign Routine 5-SEP-19 74 DRIVER. SRCIXMDRIVER.MAR; 1 (26) | 
0 199 ¢> 60s —B1 2454 MOVZWL UCBSL_XM_PID(RS),RO ; Get process index of last starter 
51 80900000" 06 EB6 9 2455 MOVL GO SCHSGL PCBVEC Ri ; Get Sddress of PCB address vector 
0 14 DO QEBD 24 § MOVL (R1)CROJ,R 3 Ht PCB address of starter 
60 A Di QOECI 24 CMPL PCBSL_P16(RO) = 3; Still same process? 
0110 ¢ EC4 24 : UCBSL-XM_PID(RS) : 
1 is EC7 24 BNEQ 40$ ; Br if not = forget it 
50 0080 C EC9 rhs MOVL PCBSL_JIB(RO) ,RO 3; Get JIB address 
51 -010C ¢ ECE 2461 MOVZWL UCBSW-XM_QUOTA(RS),R1  ; Convert to Longword 
$ “0 ve ED rt ADDL R1, JIBSL-BYTCNT (ROS ; Return byte count quota 
4A 1 C€O QED 46 ADDL R1 ag dL 3; ..and by . Limit quota 
010¢ ¢3 B4 OEDB 2464 CLRW UCBSW_XM QUOTACR ) + Reset quo 
00D0 8F BA EDF 2465 140$:  POPR #°M<RZ,RE,R7> 3 Restore pentoters 
5 OEE3 $66 RSB 3 
EE4 246 
EES 2468 DO_CANCEL: 3; Cancel the 1/0 
53 26 DO OEES re} MOVL R6,R3 : Copy Listhead address 
53 63S siéO OeE7 470 10$:  MOVL (R3),R3 : Get next entr 
56 «53)—O=D1sCOEEA «2471 CMPL = R3,, RO ; At start of List? 
OF 13 OEED Are BEAL =_«- 208 : Br f yes 
OE 19 OEEF 247 BSBB SHG CK PRT ; check or match 
F4 12 QOEFI 24674 BNEQ 10 ; Br if no match 
53 63 OF OEF3 2475 REMQUE (R3),R3 3; Remove IRP from List 
50 sf 9A OEF6 2476 MOVZBL $“#SS$ ABORT,RO ; Else, set the 1/0 status return 
FD74 = 30 -«OEF9 «2477 SBW 10_DONE ; Abort the 1/0 request 
E6 11 OEFC 2478 BRB DO_CANCEL ; Continue from start of List - again 
0S OEFE 2479 208: RSB 3; Return to caller 
OEFF 2480 
OEFF 2481 CHECK_PKT: 
28 A3 52 61 OEFF rh CMPW R2, IRP$W_CHAN(R3) 3; Channel match? 
12 12 OFO3 248 BNEQ 208 : Br if no 
OC A DS OFOS 2484 TSTL IRPS$L_PID(R3) : a3 Fois an Internal IRP? 
08 14 OFOB 2485 BGTR if NO - PID must match 
0110 C5 60 A4 D1 OFOA 2486 CMPL PCBSL_PID(R4) ,UCBSL_XM_ pivtrs) : Starter's PID? 
05 11 ae 487 BRB Done 
OC Ad = 60 AG D1 Fl 488 10$: CMPL PCBSL_PID(R4), IRPSL_PID(R3). ; PIDs match? 
05 eit ret 20$: RSB 
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ae ~SBTTL DISABLE_MODEM = DISABLE THE MODEM LINE DTR 
: DISABLE MODEM = DISABLE THE MODEM 
; Functional description: 
This routine will clear the DTR Line to the modem to hang up 
any phone connection still active. 
Inputs: 
RS = UCB ADDRESS 
Outputs: 
NONE. 


ISABLE_MODEM: ; Disable the modem Line (DTR) 
PUSHL R1 


R1 ; Save 

MOVL UCBSL_CRB(R5) ,R1 ; Get CRB address 
ASSUME IDBSL~CSR EQ 6 

MOVL acresc INTD+VECSL_IDB(R1),R1 ; Get CSR address 
MOVW #XM_1_A_MCLR,(R1) ; Master clear the unit 
MOVW #DROP-DTR,XM_PORT+2(R1) 


Load microinstruction to drop DTR 
MOVB #EXECOTE_UC.T(R1) 


: Tell controller to execute instruction 
3; Restore R1 
; Return to caller 
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$$$ 
SSSTYP 
seeute 

TIO 


ABOR 
ACBSL_KAST 
ADDRCHLIST 
ti te 


BASET AG SIZE 
BAS_B_SPARE 


ated LUSHATTNS 
COMSSETATTNAST 
CONTROL _INTR 
CRBSL_INTD 
CRBSL_ eee 
CXBSC_“HEADE 
CxXBSC “TRAILER 


DE 
DEVICE ERROR 
ABLE _MOD 


DPTSREINITAB 
DPTSTAB 


DROP _DIR 
DT$_BMc11 
DT$_DMR11 
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CTR 
$M_ SHUTDOWN 
SM_STARTUP 
SV"ATTNAST 
$V Maar: COUNT 
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U 
UCBSC_LENGTH 
UCBSC_XM_DEVCNT 


UCBSL ~IRP 
UCBSL_RCVBYTCNT 
UCBSL-RCVMSGCNT 
UCBSL~SVAPT 
UCBSL~XMTBYTCNT 
UCBSL~XMTMSGCNT 
UCBSL~XM_AST 


UCBSL_XM_BASEMAP 
aor XM od 


UCB = 
UCB$O~XM~ QUEUES 
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uc S$ 
UCBSW_XM_MODSIG 
UCBSW_XM- QUOTA 
UIN nF 


VASV-VPN 
VEC$B_DATAPATH 
VECSB_NUMREG 
VECSL_ 
VECSL-UNITINIT 
VECSW-MAPREG 
XMSDDT 
XMSM_CHR_HDPLX 
XMSM_CHR_MBX 


“STS“ACTIVE 
ANSV STS _BUFFAIL 
MT_START 
XMT~START_ALT 
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Toe verking set gp init was 2400 pages. 
bytes (437 pages) of virtual memory were used te buffer the intermediate code: 
+ re were pages of symbol table space Prot org | as © hold 3446 non-local and 1 local symbols. 
525 source yi were read in Pass 1, produci ng.é object records in Pass 2. 
9 pages of virtual memory were used to define 55 macros. 
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Symbol table per Segoe Breee19Be OOsSbics LORIVER eae TaMbetveRmaR:1 29 (3 
XM_E_V_TIMEOUT 2 
xm-1-CSR 
XM~1-M_IEI = 4 
XM 1-M_LOOPB = 
XM~1"M“MCLR = 4 
XM~I"M~RCV = 4 
XM~1"M~RDI = 
XM" 1"M~ROMI = 
XM~1—~M~ROMO = 000004 
XM_1_M_RQI = 44 
XM_1_M_RUN = 000080 
XM_1-M~STEPUP . 90001 
XM_I_V_RQI = 000000 
xm_0_CSR 444 
XM_O_M_IEO = 0000004 
XM_O_M_RDO = 0000008 
XM_O_V_RCV = 444 
XM_O_V_TYPE = 0000000 
xm_PORT 00000004 
XM_UCODE 00000006 
dese s ees eecocnaece + 
H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
ABS . 00000000 0.) 00 ¢ OO.) NOPIC  USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$ABS s$ 00000152 (¢ 338.) 01 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$105_PROLOGUE siaiseleg #4 ( 105.) 02 ¢ ¢:} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$115— DRIVER OOOOOFS6 ( 3894.) 03 ¢ ) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
poe retreat eeee sn ean nm cece 
; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 8:00: 0.04 0:00: 1.11 
cennens processing i 2-88 33: 3-06 
Symbol table sort 0 a $-89 0:00:18:70 
Pass 2 50 28.16 0:00: 3°98 
Symbol table output 08 +§ 838 : f2 
sete eae By oy oa 6 90:09 9:00:00.00 
Assembler run totals 1488 88 99-28 $0:6 at Ses 
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town men nent ee men mee seem ea 


! Macro Library statistics ! 


Gwweeeeeoeeoeeocoececoeeeeessoes$} 


Macro Library name Macros defined 


$3 sepungs Fert ae Re: MLB; 1 1 | 
| 
| 


SDUA MLB; 34 
SSSDUA SYSLIB bt MLB: 2 11 
Torre (all Libraries) 46 


3627 GETS were required to define 46 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:XMDRIVER/OBJ=0BJ$:XMDRIVER MSRC$:XMDRIVER/UPDATE=(ENHS$: XMDRIVER) +EXECML$/LIB+SHRLIBS$:NMALIBRY/LIB 
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